1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
|
#==============================================================================
#
# Template::Plugin::Procedural
#
# DESCRIPTION
#
# A Template Plugin to provide a Template Interface to Data::Dumper
#
# AUTHOR
# Mark Fowler <mark@twoshortplanks.com>
#
# COPYRIGHT
#
# Copyright (C) 2002 Mark Fowler. All Rights Reserved
#
# This module is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
#------------------------------------------------------------------------------
#
# $Id: Procedural.pm,v 1.12 2004/01/30 19:33:20 abw Exp $
#
#==============================================================================
package Template::Plugin::Procedural;
require 5.004;
use strict;
use vars qw( $VERSION $DEBUG $AUTOLOAD );
use base qw( Template::Plugin );
$VERSION = sprintf("%d.%02d", q$Revision: 1.12 $ =~ /(\d+)\.(\d+)/);
$DEBUG = 0 unless defined $DEBUG;
#------------------------------------------------------------------------
# load
#------------------------------------------------------------------------
sub load
{
my ($class, $context) = @_;
# create a proxy namespace that will be used for objects
my $proxy = "Template::Plugin::" . $class;
# okay, in our proxy create the autoload routine that will
# call the right method in the real class
no strict "refs";
*{ $proxy . "::AUTOLOAD" } =
sub
{
# work out what the method is called
$AUTOLOAD =~ s!^.*::!!;
print STDERR "Calling '$AUTOLOAD' in '$class'\n"
if $DEBUG;
# look up the sub for that method (but in a OO way)
my $uboat = $class->can($AUTOLOAD);
# if it existed call it as a subroutine, not as a method
if ($uboat)
{
shift @_;
return $uboat->(@_);
}
print STDERR "Eeek, no such method '$AUTOLOAD'\n"
if $DEBUG;
return "";
};
# create a simple new method that simply returns a blessed
# scalar as the object.
*{ $proxy . "::new" } =
sub
{
my $this;
return bless \$this, $_[0];
};
return $proxy;
}
1;
__END__
#------------------------------------------------------------------------
# IMPORTANT NOTE
# This documentation is generated automatically from source
# templates. Any changes you make here may be lost.
#
# The 'docsrc' documentation source bundle is available for download
# from http://www.template-toolkit.org/docs.html and contains all
# the source templates, XML files, scripts, etc., from which the
# documentation for the Template Toolkit is built.
#------------------------------------------------------------------------
=head1 NAME
Template::Plugin::Procedural - Base class for procedural plugins
=head1 SYNOPSIS
package Template::Plugin::LWPSimple;
use base qw(Template::Plugin::Procedural);
use LWP::Simple; # exports 'get'
1;
[% USE LWPSimple %]
[% LWPSimple.get("http://www.tt2.org/") %]
=head1 DESCRIPTION
B<Template::Plugin::Procedural> is a base class for Template Toolkit
plugins that causes defined subroutines to be called directly rather
than as a method. Essentially this means that subroutines will not
receive the class name or object as its first argument.
This is most useful when creating plugins for modules that normally
work by exporting subroutines that do not expect such additional
arguments.
Despite the fact that subroutines will not be called in an OO manner,
inheritance still function as normal. A class that uses
B<Template::Plugin::Procedural> can be subclassed and both subroutines
defined in the subclass and subroutines defined in the original class
will be available to the Template Toolkit and will be called without
the class/object argument.
=head1 AUTHOR
Mark Fowler E<lt>mark@twoshortplanks.comE<gt>
L<http://www.twoshortplanks.com|http://www.twoshortplanks.com>
=head1 VERSION
1.12, distributed as part of the
Template Toolkit version 2.14, released on 04 October 2004.
=head1 COPYRIGHT
Copyright (C) 2002 Mark Fowler E<lt>mark@twoshortplanks.comE<gt>
This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=head1 SEE ALSO
L<Template|Template>, L<Template::Plugin|Template::Plugin>
=cut
# Local Variables:
# mode: perl
# perl-indent-level: 4
# indent-tabs-mode: nil
# End:
#
# vim: expandtab shiftwidth=4:
|
