# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use strict;
-#use warnings; FIXME - Bug 2505
+use Modern::Perl;
require Exporter;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-
###############################################################################
=head1 NAME
###############################################################################
-$VERSION = 3.07.00.049;
-
-@ISA = qw(Exporter);
-@EXPORT_OK = qw(
- &TEXT
- &TEXT_PARAMETRIZED
- &CDATA
- &TAG
- &DECL
- &PI
- &DIRECTIVE
- &COMMENT
- &UNKNOWN
-);
###############################################################################
use vars qw( $_text $_text_parametrized $_cdata
$_tag $_decl $_pi $_directive $_comment $_null $_unknown );
+our (@ISA, @EXPORT_OK);
BEGIN {
+
+ require Exporter;
+ @ISA = qw(Exporter);
+ @EXPORT_OK = qw(
+ TEXT
+ TEXT_PARAMETRIZED
+ CDATA
+ TAG
+ DECL
+ PI
+ DIRECTIVE
+ COMMENT
+ UNKNOWN
+ );
+
my $new = sub {
my $this = 'C4::TmplTokenType';#shift;
my $class = ref($this) || $this;
return $this->{'name'}
}
-sub TEXT () { $_text }
-sub TEXT_PARAMETRIZED () { $_text_parametrized }
-sub CDATA () { $_cdata }
-sub TAG () { $_tag }
-sub DECL () { $_decl }
-sub PI () { $_pi }
-sub DIRECTIVE () { $_directive }
-sub COMMENT () { $_comment }
-sub UNKNOWN () { $_unknown }
+sub TEXT { $_text }
+sub TEXT_PARAMETRIZED { $_text_parametrized }
+sub CDATA { $_cdata }
+sub TAG { $_tag }
+sub DECL { $_decl }
+sub PI { $_pi }
+sub DIRECTIVE { $_directive }
+sub COMMENT { $_comment }
+sub UNKNOWN { $_unknown }
###############################################################################