[Templates-cvs] cvs commit: TT3/lib/Template/TT3 Directives.pm
cvs@template-toolkit.org
cvs@template-toolkit.org
Wed, 01 Dec 2004 11:11:27 +0000
cvs 04/12/01 11:11:27
Added: lib/Template/TT3 Directives.pm
Log:
* added new Template::TT3::* modules
Revision Changes Path
1.1 TT3/lib/Template/TT3/Directives.pm
Index: Directives.pm
===================================================================
#========================================================================
#
# Template::TT3::Directives
#
# DESCRIPTION
# Default collection of directives for TT3.
#
# AUTHOR
# Andy Wardley <abw@wardley.org>
#
# COPYRIGHT
# Copyright (C) 1996-2004 Andy Wardley. All Rights Reserved.
#
# This module is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# REVISION
# $Id: Directives.pm,v 1.1 2004/12/01 11:11:26 abw Exp $
#
#========================================================================
package Template::TT3::Directives;
use strict;
use warnings;
use Template::Directives;
use base qw( Template::Directives );
our $VERSION = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);
our $DEBUG = 0 unless defined $DEBUG;
our $ERROR = '';
our $MODULES = {
BLOCK => 'Template::Directive::Block',
CASE => 'Template::Directive::Case',
ELSE => 'Template::Directive::Else',
ELSIF => 'Template::Directive::Elsif',
END => 'Template::Directive::End',
GET => 'Template::Directive::Get',
IF => 'Template::Directive::If',
INCLUDE => 'Template::Directive::Include',
INTERPOLATE => 'Template::Directive::Interpolate',
MACRO => 'Template::Directive::Macro',
MY => 'Template::Directive::My',
PROCESS => 'Template::Directive::Process',
SET => 'Template::Directive::Set',
SWITCH => 'Template::Directive::Switch',
TAGS => 'Template::Directive::Tags',
UNLESS => 'Template::Directive::Unless',
WRAPPER => 'Template::Directive::Wrapper',
} unless defined $MODULES;
1;
__END__
=head1 NAME
Template::TT3::Directives - default set of directives for TT3
=head1 SYNOPSIS
# TODO
=head1 DESCRIPTION
# TODO
=head1 METHODS
# TODO
=head1 AUTHOR
Andy Wardley E<lt>abw@wardley.orgE<gt>
=head1 VERSION
$Revision: 1.1 $
=head1 COPYRIGHT
Copyright (C) 1996-2004 Andy Wardley. All Rights Reserved.
This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=cut
# Local Variables:
# mode: perl
# perl-indent-level: 4
# indent-tabs-mode: nil
# End:
#
# vim: expandtab shiftwidth=4: