PrinterConfig.pm - BEGIN block VERSION and vars related to export.

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/C4/Barcodes/PrinterConfig.pm b/C4/Barcodes/PrinterConfig.pm
index 44e08c3..d90cd96 100644 (file)
--- a/C4/Barcodes/PrinterConfig.pm
+++ b/C4/Barcodes/PrinterConfig.pm
@@ -16,14 +16,17 @@ package C4::Barcodes::PrinterConfig;
 # Suite 330, Boston, MA  02111-1307 USA
 
 use strict;
-require Exporter;
 use vars qw($VERSION @EXPORT);
 
 use PDF::API2;
 use PDF::API2::Page;
 
-# set the version for version checking
-$VERSION = 0.01;
+BEGIN {
+       # set the version for version checking
+       $VERSION = 0.02;
+       require Exporter;
+       @EXPORT = qw(&labelsPage &getLabelPosition setPositionsForX setPositionsForY);
+}
 
 =head1 NAME
 
@@ -45,8 +48,6 @@ environment of the pdf file.
 
 =cut
 
-@EXPORT = qw(&labelsPage &getLabelPosition setPositionsForX setPositionsForY);
-
 my @positionsForX; # Takes all the X positions of the pdf file.
 my @positionsForY; # Takes all the Y positions of the pdf file.
 my $firstLabel = 1; # Test if the label passed as a parameter is the first label to be printed into the pdf file.
@@ -217,4 +218,4 @@ __END__
 
 Koha Physics Library UNLP <matias_veleda@hotmail.com>
 
-=cut
\ No newline at end of file
+=cut