SmartX turn off warnings

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

diff --git a/lib/Biblio/RFID/SmartX.pm b/lib/Biblio/RFID/SmartX.pm
index 1d3649d..4c78297 100644 (file)
--- a/lib/Biblio/RFID/SmartX.pm
+++ b/lib/Biblio/RFID/SmartX.pm
@@ -9,8 +9,6 @@ use Data::Dump qw(dump);
 
 Biblio::RFID::SmartX - Croatian student cards format
 
-=back
-
 
 =head1 METHODS
 
@@ -22,6 +20,7 @@ Biblio::RFID::SmartX - Croatian student cards format
 
 sub bcd {
        my $data = shift;
+       no warnings;
        return join('', map { sprintf("%02x",ord($_)) } split (//, $data));
 }
 
@@ -38,6 +37,8 @@ sub to_hash {
                $decoded->[$_] = bcd( $data->[$_] );
        }
 
+       no warnings;
+
        my $hash;
        $hash->{SXID}    = substr( $decoded->[4], 0,  20 );
        $hash->{JMBAG}   = substr( $decoded->[4], 22, 10 );