sub debug {
my ( $self, $level ) = @_;
- $debug = $level;
+ $debug = $level if $level > $debug;
warn "debug level $level\n" if $level;
}
=cut
-my @readers = ( '3M810', 'CPRM02', 'librfid' );
+#my @readers = ( '3M810', 'CPRM02', 'librfid' );
+my @readers = ( '3M810', 'librfid' );
sub _available {
my ( $self, $filter ) = @_;