Merge remote-tracking branch 'mjesec/rfid-vm'

Conflicts:
	lib/Biblio/RFID/Reader.pm

diff --cc lib/Biblio/RFID/Reader.pm
index be2f5db,a5f6c94..5eb9417
--- 1/lib/Biblio/RFID/Reader.pm
--- 2/lib/Biblio/RFID/Reader.pm
+++ b/lib/Biblio/RFID/Reader.pm
@@@ -120,18 -121,21 +121,32 @@@ sub to_hash 
        return $hash;
  }
  
 -
 +=head2 debug
 +
 +  $self->debug(1); # or more
 +
 +=cut
 +
 +sub debug {
 +      my ( $self, $level ) = @_;
 +      $debug = $level;
 +      warn "debug level $level\n" if $level;
 +}
 +
+ =head2 from_reader
+ 
+   my $reader = $self->from_reader( $tag );
+ 
+ =cut
+ 
+ sub from_reader {
+       my ( $self, $tag ) = @_;
+       return unless exists $self->{_tags}->{$tag};
+       my $reader = $self->{_tags}->{$tag}->{reader};
+       $reader =~ s/^.*:://; # strip module prefix
+       return $reader;
+ }
+ 
  =head1 PRIVATE
  
  =head2 _invalidate_tag

diff --cc scripts/RFID-JSONP-server.pl
Simple merge