use DEBUG enviroment variable, update debug only if higher

diff --git a/lib/Biblio/RFID.pm b/lib/Biblio/RFID.pm
index 209956c..6cfa603 100644 (file)
--- a/lib/Biblio/RFID.pm
+++ b/lib/Biblio/RFID.pm
@@ -16,7 +16,7 @@ Biblio::RFID - perl tools to use different RFID readers for library use
 
 our $VERSION = '0.04';
 
-our $debug = 0;
+our $debug = $ENV{DEBUG} || 0;
 
 
 =head1 DESCRIPTION

diff --git a/lib/Biblio/RFID/Reader.pm b/lib/Biblio/RFID/Reader.pm
index 5eb9417..f99d159 100644 (file)
--- a/lib/Biblio/RFID/Reader.pm
+++ b/lib/Biblio/RFID/Reader.pm
@@ -129,7 +129,7 @@ sub to_hash {
 
 sub debug {
        my ( $self, $level ) = @_;
-       $debug = $level;
+       $debug = $level if $level > $debug;
        warn "debug level $level\n" if $level;
 }