disable CPRM02

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

diff --git a/lib/Biblio/RFID/Reader.pm b/lib/Biblio/RFID/Reader.pm
index a5f6c94..3af9fc4 100644 (file)
--- a/lib/Biblio/RFID/Reader.pm
+++ b/lib/Biblio/RFID/Reader.pm
@@ -121,6 +121,18 @@ sub to_hash {
        return $hash;
 }
 
+=head2 debug
+
+  $self->debug(1); # or more
+
+=cut
+
+sub debug {
+       my ( $self, $level ) = @_;
+       $debug = $level if $level > $debug;
+       warn "debug level $level\n" if $level;
+}
+
 =head2 from_reader
 
   my $reader = $self->from_reader( $tag );
@@ -135,7 +147,6 @@ sub from_reader {
        return $reader;
 }
 
-
 =head1 PRIVATE
 
 =head2 _invalidate_tag
@@ -160,7 +171,8 @@ Probe each RFID reader supported and returns succefull ones
 
 =cut
 
-my @readers = ( '3M810', 'CPRM02', 'librfid' );
+#my @readers = ( '3M810', 'CPRM02', 'librfid' );
+my @readers = ( '3M810', 'librfid' );
 
 sub _available {
        my ( $self, $filter ) = @_;