added 3M blank payload

diff --git a/lib/RFID/Biblio/RFID501.pm b/lib/RFID/Biblio/RFID501.pm
index 760fe24..7d66e30 100644 (file)
--- a/lib/RFID/Biblio/RFID501.pm
+++ b/lib/RFID/Biblio/RFID501.pm
@@ -118,8 +118,7 @@ sub to_hash {
 }
 
 sub from_hash {
-       my $self = shift;
-       my $hash = {@_};
+       my ( $self, $hash ) = @_;
 
        warn "## from_hash ",dump($hash);
 
@@ -138,4 +137,10 @@ sub from_hash {
        );
 }
 
+sub blank {
+
+       return ( "\x55" x ( 5 * 4 ) ) . ( "\x00" x 4 );
+
+}
+
 1;

diff --git a/t/05-RFID501.t b/t/05-RFID501.t
index b4010d8..fbd7291 100755 (executable)
--- a/t/05-RFID501.t
+++ b/t/05-RFID501.t
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-use Test::More tests => 7;
+use Test::More tests => 8;
 use Data::Dump qw(dump);
 
 use lib 'lib';
@@ -43,3 +43,6 @@ foreach my $tag ( @$tags ) {
 
 }
 
+ok( my $bytes = RFID::Biblio::RFID501->blank, 'blank' );
+diag dump $bytes;
+