Initial Commit

database/perl/vendor/lib/Template/Plugin/Procedural.pm

@@ -0,0 +1,137 @@
+#==============================================================================
+# 
+# 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.009';
+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;
+}
+
+1;
+
+__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
+
+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>, L<Template::Plugin>
+
+=cut
+
+# Local Variables:
+# mode: perl
+# perl-indent-level: 4
+# indent-tabs-mode: nil
+# End:
+#
+# vim: expandtab shiftwidth=4: