Merge remote-tracking branch 'mjesec/rfid-vm'

[Biblio-RFID.git] / lib / Biblio / RFID / Reader.pm

diff --git a/lib/Biblio/RFID/Reader.pm b/lib/Biblio/RFID/Reader.pm
index be2f5db..5eb9417 100644 (file)
--- 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 ( $@ ) {
@@ -132,6 +133,20 @@ sub 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