From a38a58438da6afc0d9405bdf1c321ff30138dab9 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Mon, 7 Jan 2008 13:52:51 -0600 Subject: [PATCH] Boolean.pm - BEGIN block VERSION and vars related to export. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/Boolean.pm | 25 ++++++++++++------------- 1 file changed, 12 insertions(+), 13 deletions(-) diff --git a/C4/Boolean.pm b/C4/Boolean.pm index e49faf6cd2..c9259df035 100644 --- a/C4/Boolean.pm +++ b/C4/Boolean.pm @@ -1,6 +1,5 @@ package C4::Boolean; - #package to handle Boolean values in the parameters table # Note: This is just a utility module; it should not be instantiated. @@ -24,12 +23,21 @@ package C4::Boolean; use strict; use POSIX; -require Exporter; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); -# set the version for version checking -$VERSION = 0.01; +BEGIN { + # set the version for version checking + $VERSION = 0.02; + require Exporter; + @EXPORT = qw( + &INVALID_BOOLEAN_STRING_EXCEPTION + ); + @EXPORT_OK = qw( + true_p + ); + @ISA = qw(Exporter); +} =head1 NAME @@ -53,15 +61,6 @@ Boolean values in a consistent way which makes common sense. =cut -@ISA = qw(Exporter); -@EXPORT = ( - &INVALID_BOOLEAN_STRING_EXCEPTION - ); - -@EXPORT_OK = qw( - true_p - ); - sub INVALID_BOOLEAN_STRING_EXCEPTION () { 'The given value does not seem to be interpretable as a Boolean value' } -- 2.39.5