?HAMA

Edit File Size: 3.59 KB

//usr/local/lib64/perl5/Template/Plugin/Procedural.pm

Text Base64

#==============================================================================
# 
# 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.
#
#==============================================================================

package Template::Plugin::Procedural;

use strict;
use warnings;
use base 'Template::Plugin';

our $VERSION = '3.100';
our $DEBUG   = 0 unless defined $DEBUG;
our $AUTOLOAD;

#------------------------------------------------------------------------
# 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";
    unless( defined( *{ $proxy . "::AUTOLOAD" } ) ) {
        *{ $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.
    unless( defined( *{ $proxy . "::new" } ) ) {
        *{ $proxy . "::new" } = sub {
            my $this;
            return bless \$this, $_[0];
        };
    }

return $proxy;
}

__END__

=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

C<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
C<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>

=head1 COPYRIGHT

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>, L<Template::Plugin>

=cut

# Local Variables:
# mode: perl
# perl-indent-level: 4
# indent-tabs-mode: nil
# End:
#
# vim: expandtab shiftwidth=4:

Exit & Reset Text mode: syntax highlighting auto-detects file type.

Name	Size	Perms	Modified	Actions
Assert.pm	3.43 KB	lr--r--r--	2022-07-26 06:42:11	Edit Download recursive recursive
Datafile.pm	4.40 KB	lr--r--r--	2022-07-26 06:42:21	Edit Download recursive recursive
Date.pm	11.22 KB	lr--r--r--	2022-07-26 07:09:42	Edit Download recursive recursive
Directory.pm	10.90 KB	lr--r--r--	2022-07-26 06:43:06	Edit Download recursive recursive
Dumper.pm	3.66 KB	lr--r--r--	2022-07-25 18:57:15	Edit Download recursive recursive
File.pm	10.92 KB	lr--r--r--	2022-07-26 07:10:13	Edit Download recursive recursive
Filter.pm	9.63 KB	lr--r--r--	2022-07-26 06:43:36	Edit Download recursive recursive
Format.pm	1.79 KB	lr--r--r--	2022-07-26 06:43:45	Edit Download recursive recursive
HTML.pm	5.87 KB	lr--r--r--	2022-07-26 06:43:59	Edit Download recursive recursive
Image.pm	11.43 KB	lr--r--r--	2022-07-26 07:10:56	Edit Download recursive recursive
Iterator.pm	1.95 KB	lr--r--r--	2022-07-26 06:44:16	Edit Download recursive recursive
Math.pm	3.99 KB	lr--r--r--	2022-07-26 06:44:36	Edit Download recursive recursive
Pod.pm	1.61 KB	lr--r--r--	2022-07-26 06:44:44	Edit Download recursive recursive
Procedural.pm	3.59 KB	lr--r--r--	2022-07-25 18:57:15	Edit Download recursive recursive
Scalar.pm	3.67 KB	lr--r--r--	2022-07-26 06:45:02	Edit Download recursive recursive
String.pm	17.69 KB	lr--r--r--	2022-07-26 06:45:13	Edit Download recursive recursive
Table.pm	12.41 KB	lr--r--r--	2022-07-26 07:13:22	Edit Download recursive recursive
URL.pm	5.67 KB	lr--r--r--	2022-07-26 07:13:38	Edit Download recursive recursive
View.pm	2.40 KB	lr--r--r--	2022-07-26 06:45:43	Edit Download recursive recursive
Wrap.pm	3.18 KB	lr--r--r--	2022-07-26 06:45:52	Edit Download recursive recursive

Directory Contents