Conflicts:
lib/Biblio/RFID/Reader.pm
return $hash;
}
-
+=head2 debug
+
+ $self->debug(1); # or more
+
+=cut
+
+sub debug {
+ my ( $self, $level ) = @_;
+ $debug = $level;
+ warn "debug level $level\n" if $level;
+}
+
+ =head2 from_reader
+
+ my $reader = $self->from_reader( $tag );
+
+ =cut
+
+ sub from_reader {
+ my ( $self, $tag ) = @_;
+ return unless exists $self->{_tags}->{$tag};
+ my $reader = $self->{_tags}->{$tag}->{reader};
+ $reader =~ s/^.*:://; # strip module prefix
+ return $reader;
+ }
+
=head1 PRIVATE
=head2 _invalidate_tag