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