pass debug option down since we controll warn

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
 

diff --git a/scripts/RFID-JSONP-server.pl b/scripts/RFID-JSONP-server.pl
index 8d44048..1c93c2d 100755 (executable)
--- a/scripts/RFID-JSONP-server.pl
+++ b/scripts/RFID-JSONP-server.pl
@@ -66,6 +66,7 @@ use lib 'lib';
 use Biblio::RFID::RFID501;
 use Biblio::RFID::Reader;
 my $rfid = Biblio::RFID::Reader->new( shift @ARGV );
+$rfid->debug( $debug );
 
 my $index_html;
 {