6 use Data::Dump qw(dump);
17 my @readers = ( '3M810', 'CPRM02' );
20 foreach my $reader ( @readers ) {
21 next if $only && $only ne $reader;
22 my $module = "RFID::Serial::$reader";
25 if ( my $rfid = $module->new( device => '/dev/ttyUSB0' ) ) {
27 warn "# added $module\n";
29 warn "# ignored $module\n";
36 foreach my $rfid ( @rfid ) {
37 my $visible = $rfid->scan;
38 foreach my $tag ( keys %$visible ) {
40 print ref($rfid),"\t$tag\t", join('', @{ $visible->{$tag} }), $/;