added reader callback to tags to query just some readers

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

diff --git a/lib/Biblio/RFID/Reader.pm b/lib/Biblio/RFID/Reader.pm
index 3af9fc4..c66febd 100644 (file)
--- a/lib/Biblio/RFID/Reader.pm
+++ b/lib/Biblio/RFID/Reader.pm
@@ -39,6 +39,7 @@ sub new {
   my @visible = $rfid->tags(
                enter => sub { my $tag = shift; },
                leave => sub { my $tag = shift; },
+               reader => sub { my $reader = shift; ref($reader) =~ m/something/ },
   );
 
 =cut
@@ -52,6 +53,11 @@ sub tags {
        my $t = time;
 
        foreach my $rfid ( @{ $self->{_readers} } ) {
+
+               if ( exists $triggers->{reader} ) {
+                       next unless $triggers->{reader}->($rfid);
+               }
+
                warn "# inventory on $rfid";
                my @tags = $rfid->inventory;