projects
/
Biblio-RFID.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 warnings;
use strict;
+use base 'Exporter';
+our @EXPORT = qw( hex2bytes as_hex hex_tag );
+
use Device::SerialPort qw(:STAT);
use Data::Dump qw(dump);
use Device::SerialPort qw(:STAT);
use Data::Dump qw(dump);
@@
-16,9
+19,6
@@
our $VERSION = '0.01';
my $debug = 0;
my $debug = 0;
-use base 'Exporter';
-our @EXPORT = qw( hex2bytes as_hex );
-
=head1 SYNOPSIS
=head1 SYNOPSIS
@@
-111,6
+111,14
@@
sub as_hex {
return join(' | ', @out);
}
return join(' | ', @out);
}
+=head2 hex_tag
+
+ print hex_tag $bytes;
+
+=cut
+
+sub hex_tag { uc(unpack('H16', shift)) }
+
=head1 AUTHOR
=head1 AUTHOR