X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=lib%2FBiblio%2FRFID%2FReader.pm;h=3af9fc4fef8dc5ef43ff8e738f359cdfb7e25f02;hb=5d4d3693c85b845ba8053cb479e8a680756d4df4;hp=be2f5db2424760482463d287f974856e06582525;hpb=5f4d8fdbf8c39bfdb03e72d3fe1241b2c6427c2e;p=Biblio-RFID.git

diff --git a/lib/Biblio/RFID/Reader.pm b/lib/Biblio/RFID/Reader.pm
index be2f5db..3af9fc4 100644
--- a/lib/Biblio/RFID/Reader.pm
+++ b/lib/Biblio/RFID/Reader.pm
@@ -64,6 +64,7 @@ sub tags {
 					my $afi = $rfid->read_afi($tag);
 					$self->{_tags}->{$tag}->{afi} = $afi;
 					$self->{_tags}->{$tag}->{type} = $rfid->tag_type( $tag );
+					$self->{_tags}->{$tag}->{reader} = ref $rfid; # save reader info
 
 				};
 				if ( $@ ) {
@@ -128,10 +129,24 @@ sub to_hash {
 
 sub debug {
 	my ( $self, $level ) = @_;
-	$debug = $level;
+	$debug = $level if $level > $debug;
 	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
@@ -156,7 +171,8 @@ Probe each RFID reader supported and returns succefull ones
 
 =cut
 
-my @readers = ( '3M810', 'CPRM02', 'librfid' );
+#my @readers = ( '3M810', 'CPRM02', 'librfid' );
+my @readers = ( '3M810', 'librfid' );
 
 sub _available {
 	my ( $self, $filter ) = @_;