[Templates-cvs] cvs commit: TT3/lib/Template/Directive End.pm Block.pm Get.pm Include.pm Process.pm
cvs@template-toolkit.org
cvs@template-toolkit.org
Wed, 17 Nov 2004 14:56:33 +0000
cvs 04/11/17 14:56:33
Modified: lib/Template/Directive Block.pm Get.pm Include.pm Process.pm
Added: lib/Template/Directive End.pm
Log:
* added END directive and tweaked various others
Revision Changes Path
1.2 +6 -10 TT3/lib/Template/Directive/Block.pm
Index: Block.pm
===================================================================
RCS file: /template-toolkit/TT3/lib/Template/Directive/Block.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- Block.pm 2004/11/10 18:26:30 1.1
+++ Block.pm 2004/11/17 14:56:33 1.2
@@ -10,14 +10,12 @@
#
# COPYRIGHT
# Copyright (C) 1996-2004 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2002 Canon Research Centre Europe Ltd.
-# Copyright (C) 2003-2004 Fotango Ltd.
#
# This module is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# REVISION
-# $Id: Block.pm,v 1.1 2004/11/10 18:26:30 abw Exp $
+# $Id: Block.pm,v 1.2 2004/11/17 14:56:33 abw Exp $
#
#========================================================================
@@ -28,7 +26,7 @@
use Template::Directive;
use base qw( Template::Directive );
-our $VERSION = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);
+our $VERSION = sprintf("%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/);
our $ERROR = '';
our $KEYWORD = 'BLOCK';
@@ -99,11 +97,11 @@
=head1 NAME
-Template::Directive::Get - the GET directive
+Template::Directive::Block - the BLOCK directive
=head1 SYNOPSIS
- PROCESS => template params
+# TODO
=head1 DESCRIPTION
@@ -121,13 +119,11 @@
=head1 VERSION
-$Revision: 1.1 $
+$Revision: 1.2 $
=head1 COPYRIGHT
- Copyright (C) 1996-2004 Andy Wardley. All Rights Reserved.
- Copyright (C) 1998-2002 Canon Research Centre Europe Ltd.
- Copyright (C) 2003-2004 Fotango Ltd.
+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.
1.4 +4 -4 TT3/lib/Template/Directive/Get.pm
Index: Get.pm
===================================================================
RCS file: /template-toolkit/TT3/lib/Template/Directive/Get.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- Get.pm 2004/11/17 14:51:45 1.3
+++ Get.pm 2004/11/17 14:56:33 1.4
@@ -15,7 +15,7 @@
# modify it under the same terms as Perl itself.
#
# REVISION
-# $Id: Get.pm,v 1.3 2004/11/17 14:51:45 abw Exp $
+# $Id: Get.pm,v 1.4 2004/11/17 14:56:33 abw Exp $
#
#========================================================================
@@ -26,7 +26,7 @@
use Template::Directive;
use base qw( Template::Directive );
-our $VERSION = sprintf("%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/);
+our $VERSION = sprintf("%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/);
our $ERROR = '';
our $KEYWORD = 'GET';
@@ -56,7 +56,7 @@
=head1 SYNOPSIS
- PROCESS => template params
+# TODO
=head1 DESCRIPTION
@@ -74,7 +74,7 @@
=head1 VERSION
-$Revision: 1.3 $
+$Revision: 1.4 $
=head1 COPYRIGHT
1.3 +5 -7 TT3/lib/Template/Directive/Include.pm
Index: Include.pm
===================================================================
RCS file: /template-toolkit/TT3/lib/Template/Directive/Include.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- Include.pm 2004/11/17 14:51:02 1.2
+++ Include.pm 2004/11/17 14:56:33 1.3
@@ -15,7 +15,7 @@
# modify it under the same terms as Perl itself.
#
# REVISION
-# $Id: Include.pm,v 1.2 2004/11/17 14:51:02 abw Exp $
+# $Id: Include.pm,v 1.3 2004/11/17 14:56:33 abw Exp $
#
#========================================================================
@@ -26,7 +26,7 @@
use Template::Directive;
use base qw( Template::Directive );
-our $VERSION = sprintf("%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/);
+our $VERSION = sprintf("%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/);
our $ERROR = '';
our $KEYWORD = 'INCLUDE';
@@ -59,7 +59,7 @@
=head1 SYNOPSIS
- INCLUDE => template params
+# TODO
=head1 DESCRIPTION
@@ -77,13 +77,11 @@
=head1 VERSION
-$Revision: 1.2 $
+$Revision: 1.3 $
=head1 COPYRIGHT
- Copyright (C) 1996-2004 Andy Wardley. All Rights Reserved.
- Copyright (C) 1998-2002 Canon Research Centre Europe Ltd.
- Copyright (C) 2003-2004 Fotango Ltd.
+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.
1.2 +4 -8 TT3/lib/Template/Directive/Process.pm
Index: Process.pm
===================================================================
RCS file: /template-toolkit/TT3/lib/Template/Directive/Process.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- Process.pm 2004/11/10 18:26:30 1.1
+++ Process.pm 2004/11/17 14:56:33 1.2
@@ -11,14 +11,12 @@
#
# COPYRIGHT
# Copyright (C) 1996-2004 Andy Wardley. All Rights Reserved.
-# Copyright (C) 1998-2002 Canon Research Centre Europe Ltd.
-# Copyright (C) 2003-2004 Fotango Ltd.
#
# This module is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# REVISION
-# $Id: Process.pm,v 1.1 2004/11/10 18:26:30 abw Exp $
+# $Id: Process.pm,v 1.2 2004/11/17 14:56:33 abw Exp $
#
#========================================================================
@@ -29,7 +27,7 @@
use Template::Directive;
use base qw( Template::Directive );
-our $VERSION = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);
+our $VERSION = sprintf("%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/);
our $ERROR = '';
our $KEYWORD = 'PROCESS';
@@ -82,13 +80,11 @@
=head1 VERSION
-$Revision: 1.1 $
+$Revision: 1.2 $
=head1 COPYRIGHT
- Copyright (C) 1996-2004 Andy Wardley. All Rights Reserved.
- Copyright (C) 1998-2002 Canon Research Centre Europe Ltd.
- Copyright (C) 2003-2004 Fotango Ltd.
+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.
1.1 TT3/lib/Template/Directive/End.pm
Index: End.pm
===================================================================
#========================================================================
#
# Template::Directive::End
#
# DESCRIPTION
# The END directive.
#
# 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: End.pm,v 1.1 2004/11/17 14:56:33 abw Exp $
#
#========================================================================
package Template::Directive::End;
use strict;
use warnings;
use Template::Directive;
use base qw( Template::Directive );
our $VERSION = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);
our $ERROR = '';
our $KEYWORD = 'WRAPPER';
sub parse {
my ($self, $textref, $handler, $match) = @_;
# check for end match
return $handler->end_expr( commit => 1 );
}
1;
__END__
=head1 NAME
Template::Directive::End - the END directive
=head1 SYNOPSIS
# TODO
=head1 DESCRIPTION
# TODO
=head1 METHODS
=head2 new()
# 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: