projects
/
Biblio-RFID.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
pass debug option down since we controll warn
[Biblio-RFID.git]
/
lib
/
Biblio
/
RFID
/
Reader.pm
diff --git
a/lib/Biblio/RFID/Reader.pm
b/lib/Biblio/RFID/Reader.pm
index
0ec702e
..
be2f5db
100644
(file)
--- a/
lib/Biblio/RFID/Reader.pm
+++ b/
lib/Biblio/RFID/Reader.pm
@@
-120,6
+120,17
@@
sub to_hash {
return $hash;
}
+=head2 debug
+
+ $self->debug(1); # or more
+
+=cut
+
+sub debug {
+ my ( $self, $level ) = @_;
+ $debug = $level;
+ warn "debug level $level\n" if $level;
+}
=head1 PRIVATE