Changes
-MANIFEST
+examples/koha-rfid.js
+examples/reset-OmnyKey.sh
+examples/usbreset.c
+ignore.txt
+inc/Module/AutoInstall.pm
+inc/Module/Install.pm
+inc/Module/Install/AutoInstall.pm
+inc/Module/Install/Base.pm
+inc/Module/Install/Can.pm
+inc/Module/Install/Fetch.pm
+inc/Module/Install/Include.pm
+inc/Module/Install/Makefile.pm
+inc/Module/Install/Metadata.pm
+inc/Module/Install/Repository.pm
+inc/Module/Install/Win32.pm
+inc/Module/Install/WriteAll.pm
+lib/RFID/Biblio.pm
+lib/RFID/Biblio/Reader.pm
+lib/RFID/Biblio/Reader/3M810.pm
+lib/RFID/Biblio/Reader/API.pm
+lib/RFID/Biblio/Reader/CPRM02.pm
+lib/RFID/Biblio/Reader/librfid.pm
+lib/RFID/Biblio/Reader/Serial.pm
+lib/RFID/Biblio/RFID501.pm
+Makefile
Makefile.PL
+MANIFEST
+MANIFEST.SKIP
+META.yml
README
-lib/RFID/Biblio.pm
+scripts/print.pl
+scripts/program.pl
+scripts/RFID-JSONP-server.pl
+scripts/scan.pl
t/00-load.t
+t/05-RFID501.t
+t/10-3M-810.t
+t/20-CPR-M02.t
+t/30-librfid.t
+t/50-Readers.t
+t/boilerplate.t
t/manifest.t
t/pod-coverage.t
t/pod.t
+t/readme.t
--- /dev/null
+.git
+blib
+out
+docs
+pm_to_blib
+log
+log.print
+MANIFEST.bak
warn "## from_hash ",dump($hash);
+ $hash->{$_} ||= 0 foreach ( qw( set total type branch library ) );
+
return pack('C4Z16Nl>l',
0x04,
( $hash->{set} << 4 ) | ( $hash->{total} & 0x0f ),
# drain on startup
my ( $count, $str ) = $port->read(3);
- my $data = $port->read( ord(substr($str,2,1)) );
- warn "drain ",as_hex( $str, $data ),"\n";
+ if ( $count ) {
+ my $data = $port->read( ord(substr($str,2,1)) );
+ warn "drain ",as_hex( $str, $data ),"\n";
+ }
$port->read_char_time(100); # 0.1 s char timeout
$port->read_const_time(500); # 0.5 s read timeout
my $loop = 1;
my $reader = '3M';
my $debug = 0;
-my $afi = 0x42;
+my $afi = 0x00; # XXX
my $test = 0;
my $log_print = 'log.print';
warn localtime()." visible: ",join(' ',@visible),"\n";
+ sleep 1;
+
} while $loop;
#!/usr/bin/perl -T
-use Test::More tests => 7;
+use Test::More tests => 8;
BEGIN {
use lib 'lib';
- use_ok( 'Biblio::RFID' );
- use_ok( 'Biblio::RFID::Reader::API' );
- use_ok( 'Biblio::RFID::Reader::Serial' );
- use_ok( 'Biblio::RFID::Reader::3M810' );
- use_ok( 'Biblio::RFID::Reader::CPRM02' );
- use_ok( 'Biblio::RFID::Reader::librfid' );
- use_ok( 'Biblio::RFID::Reader' );
+ use_ok( 'Biblio::RFID' );
+ use_ok( 'Biblio::RFID::Reader::API' );
+ use_ok( 'Biblio::RFID::Reader::Serial' );
+ use_ok( 'Biblio::RFID::Reader::3M810' );
+ use_ok( 'Biblio::RFID::Reader::CPRM02' );
+ use_ok( 'Biblio::RFID::Reader::librfid' );
+ use_ok( 'Biblio::RFID::Reader' );
+ use_ok( 'Biblio::RFID::RFID501' );
}
diag( "Testing Biblio::RFID $Biblio::RFID::VERSION, Perl $], $^X" );