my @visible = $rfid->tags(
enter => sub { my $tag = shift; },
leave => sub { my $tag = shift; },
+ reader => sub { my $reader = shift; ref($reader) =~ m/something/ },
);
=cut
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;
}
close($fh);
}
- } elsif ( $method =~ m{/scan} ) {
- my @tags = $rfid->tags;
+ } elsif ( $method =~ m{/scan(/only/(.+))?} ) {
+ my $only = $2;
+ my @tags = $rfid->tags( reader => sub {
+ my $reader = shift;
+ return 1 unless $only;
+ if ( ref $reader =~ m/\Q$only\E/i ) {
+ return 1;
+ }
+ return 0;
+ });
my $json = { time => time() };
foreach my $tag ( @tags ) {
my $hash = $rfid->to_hash( $tag );