# 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(@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;