From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 10 Oct 2014 10:44:19 +0000 (+0200)
Subject: use DEBUG enviroment variable, update debug only if higher
X-Git-Url: http://git.rot13.org/?p=Biblio-RFID.git;a=commitdiff_plain;h=0b4bf2e5cf0a6bc56a83d71ce34a49066aeedcdc;hp=1f14208133b025b3605a2c9cbd0b96376cac8173

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