use DEBUG enviroment variable, update debug only if higher

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

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;
 }