lib/RFID/Biblio/Readers.pm

   1 package RFID::Biblio::Readers;
   2
   3 use warnings;
   4 use strict;
   5
   6 use lib 'lib';
   7
   8 my @readers = ( '3M810', 'CPRM02' );
   9
  10 sub available {
  11         my ( $self, $filter ) = @_;
  12
  13         my @rfid;
  14
  15         foreach my $reader ( @readers ) {
  16                 next if $reader !~ /$filter/i;
  17                 my $module = "RFID::Biblio::$reader";
  18                 eval "use $module";
  19                 die $@ if $@;
  20                 if ( my $rfid = $module->new( device => '/dev/ttyUSB0' ) ) {
  21                         push @rfid, $rfid;
  22                         warn "# added $module\n";
  23                 } else {
  24                         warn "# ignored $module\n";
  25                 }
  26         }
  27
  28         return @rfid;
  29 }
  30