unify read_blocks and invetory interface

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

diff --git a/lib/RFID/Serial.pm b/lib/RFID/Serial.pm
index e30f363..9c32a6d 100644 (file)
--- a/lib/RFID/Serial.pm
+++ b/lib/RFID/Serial.pm
@@ -3,6 +3,9 @@ package RFID::Serial;
 use warnings;
 use strict;
 
+use base 'Exporter';
+our @EXPORT = qw( hex2bytes as_hex hex_tag );
+
 use Device::SerialPort qw(:STAT);
 use Data::Dump qw(dump);
 
@@ -16,9 +19,6 @@ our $VERSION = '0.01';
 
 my $debug = 0;
 
-use base 'Exporter';
-our @EXPORT = qw( hex2bytes as_hex );
-
 
 =head1 SYNOPSIS
 
@@ -111,6 +111,14 @@ sub as_hex {
        return join(' | ', @out);
 }
 
+=head2 hex_tag
+
+  print hex_tag $bytes;
+
+=cut
+
+sub hex_tag { uc(unpack('H16', shift)) }
+
 
 =head1 AUTHOR