added 3M blank payload

[Biblio-RFID.git] / lib / RFID / Biblio / RFID501.pm

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;