X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=C4%2FPatroncards.pm;h=7358b29075a00cbd82914e0eb7a3b0fefaf84544;hb=5f8126aef3cd9e2162053b691b83ada6309d8149;hp=e83319399874894d483b40565b3efcd3a35ed314;hpb=a8222aeeb1169d7b1939d1e64c319a16e3846e8c;p=koha-ffzg.git

diff --git a/C4/Patroncards.pm b/C4/Patroncards.pm
index e833193998..7358b29075 100644
--- a/C4/Patroncards.pm
+++ b/C4/Patroncards.pm
@@ -1,7 +1,8 @@
 package C4::Patroncards;
 
+use Modern::Perl;
+
 BEGIN {
-    use version; our $VERSION = qv('1.0.0_1');
     use vars qw(@EXPORT @ISA);
     @ISA = qw(Exporter);
     our @EXPORT = qw(unpack_UTF8
@@ -13,12 +14,21 @@ BEGIN {
                      get_image
                      rm_image
     );
-    use C4::Patroncards::Batch 1.000000;
-    use C4::Patroncards::Layout 1.000000;
-    use C4::Patroncards::Lib 1.000000;
-    use C4::Patroncards::Patroncard 1.000000;
-    use C4::Patroncards::Profile 1.000000;
-    use C4::Patroncards::Template 1.000000;
+    use C4::Patroncards::Batch;
+    use C4::Patroncards::Layout;
+    use C4::Patroncards::Lib qw(
+    box
+    get_borrower_attributes
+    get_image
+    leading
+    put_image
+    rm_image
+    text_alignment
+    unpack_UTF8
+);
+    use C4::Patroncards::Patroncard;
+    use C4::Patroncards::Profile;
+    use C4::Patroncards::Template;
 }
 
 1;