implement RFID::Serial->scan and test it

diff --git a/lib/RFID/Serial.pm b/lib/RFID/Serial.pm
index d23642c..e9435f6 100644 (file)
--- a/lib/RFID/Serial.pm
+++ b/lib/RFID/Serial.pm
@@ -32,6 +32,7 @@ Perhaps a little code snippet.
     my $rfid = RFID::Serial->new(
                device => '/dev/ttyUSB0', # with fallback to RFID_DEVICE
        );
+       my $visible = $rfid->scan;
 
 =head1 SUBROUTINES/METHODS
 
@@ -74,6 +75,28 @@ sub port {
 
 }
 
+=head2 scan
+
+  my $visible = $rfid->scan;
+
+Returns hash with keys which match tag UID and values with blocks
+
+=cut
+
+sub scan {
+       my $self = shift;
+
+       warn "# scan tags in reader range\n";
+       my @tags = $self->inventory;
+
+       my $visible;
+       # FIXME this is naive implementation which just discards other tags
+       $visible->{$_} = $self->read_blocks( $_ )->{$_} foreach @tags;
+
+       return $visible;
+}
+
+
 =head1 MANDATORY IMPLEMENTATIONS
 
 Each reader must implement following hooks as sub-classes.

diff --git a/t/10-3M-810.t b/t/10-3M-810.t
index 7a737a7..ae2e961 100755 (executable)
--- a/t/10-3M-810.t
+++ b/t/10-3M-810.t
@@ -15,3 +15,7 @@ ok( my @tags = $o->inventory, 'inventory' );
 diag dump @tags;
 
 ok( my $blocks = $o->read_blocks( $_ ), "read_blocks $_" ) foreach @tags;
+
+ok( my $visible = $o->scan, 'scan' );
+diag dump $visible;
+

diff --git a/t/20-CPR-M02.t b/t/20-CPR-M02.t
index 54c4a5d..fe4663d 100755 (executable)
--- a/t/20-CPR-M02.t
+++ b/t/20-CPR-M02.t
@@ -15,3 +15,6 @@ ok( my @tags = $o->inventory, 'inventory' );
 
 ok( my $blocks = $o->read_blocks( $_ ), "read_blocks $_" ) foreach @tags;
 
+ok( my $visible = $o->scan, 'scan' );
+diag dump $visible;
+