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 / View.pm < prev    next >
Encoding:
Perl POD Document  |  2004-01-30  |  3.2 KB  |  128 lines
  1. #============================================================= -*-Perl-*-
  2. #
  3. # Template::Plugin::View
  4. #
  5. # DESCRIPTION
  6. #   A user-definable view based on templates.  Similar to the concept of
  7. #   a "Skin".
  8. #
  9. # AUTHOR
  10. #   Andy Wardley   <abw@kfs.org>
  11. #
  12. # COPYRIGHT
  13. #   Copyright (C) 2000 Andy Wardley.  All Rights Reserved.
  14. #
  15. #   This module is free software; you can redistribute it and/or
  16. #   modify it under the same terms as Perl itself.
  17. #
  18. # REVISION
  19. #   $Id: View.pm,v 2.63 2004/01/13 16:20:39 abw Exp $
  20. #
  21. #============================================================================
  22.  
  23. package Template::Plugin::View;
  24.  
  25. require 5.004;
  26.  
  27. use strict;
  28. use Template::Plugin;
  29. use vars qw( $VERSION );
  30. use base qw( Template::Plugin );
  31.  
  32. $VERSION = sprintf("%d.%02d", q$Revision: 2.63 $ =~ /(\d+)\.(\d+)/);
  33.  
  34. use Template::View;
  35.  
  36. #------------------------------------------------------------------------
  37. # new($context, \%config)
  38. #------------------------------------------------------------------------
  39.  
  40. sub new {
  41.     my $class = shift;
  42.     my $context = shift;
  43.     my $view = Template::View->new($context, @_)
  44.     || return $class->error($Template::View::ERROR);
  45.     $view->seal();
  46.     return $view;
  47. }
  48.  
  49.  
  50.  
  51. 1;
  52.  
  53. __END__
  54.  
  55.  
  56. #------------------------------------------------------------------------
  57. # IMPORTANT NOTE
  58. #   This documentation is generated automatically from source
  59. #   templates.  Any changes you make here may be lost.
  60. # 
  61. #   The 'docsrc' documentation source bundle is available for download
  62. #   from http://www.template-toolkit.org/docs.html and contains all
  63. #   the source templates, XML files, scripts, etc., from which the
  64. #   documentation for the Template Toolkit is built.
  65. #------------------------------------------------------------------------
  66.  
  67. =head1 NAME
  68.  
  69. Template::Plugin::View - Plugin to create views (Template::View)
  70.  
  71. =head1 SYNOPSIS
  72.  
  73.     [% USE view(
  74.         prefix = 'splash/'        # template prefix/suffix
  75.         suffix = '.tt2'        
  76.         bgcol  = '#ffffff'        # and any other variables you 
  77.         style  = 'Fancy HTML'       # care to define as view metadata,
  78.         items  = [ foo, bar.baz ]    # including complex data and
  79.         foo    = bar ? baz : x.y.z  # expressions
  80.     %]
  81.  
  82.     [% view.title %]            # access view metadata
  83.  
  84.     [% view.header(title = 'Foo!') %]    # view "methods" process blocks or
  85.     [% view.footer %]            # templates with prefix/suffix added
  86.  
  87. =head1 DESCRIPTION
  88.  
  89. This plugin module creates Template::View objects.  Views are an
  90. experimental feature and are subject to change in the near future.
  91. In the mean time, please consult L<Template::View> for further info.
  92.  
  93. =head1 AUTHOR
  94.  
  95. Andy Wardley E<lt>abw@andywardley.comE<gt>
  96.  
  97. L<http://www.andywardley.com/|http://www.andywardley.com/>
  98.  
  99.  
  100.  
  101.  
  102. =head1 VERSION
  103.  
  104. 2.63, distributed as part of the
  105. Template Toolkit version 2.13, released on 30 January 2004.
  106.  
  107. =head1 COPYRIGHT
  108.  
  109.   Copyright (C) 1996-2004 Andy Wardley.  All Rights Reserved.
  110.   Copyright (C) 1998-2002 Canon Research Centre Europe Ltd.
  111.  
  112. This module is free software; you can redistribute it and/or
  113. modify it under the same terms as Perl itself.
  114.  
  115. =head1 SEE ALSO
  116.  
  117. L<Template::Plugin|Template::Plugin>, L<Template::View|Template::View>
  118.  
  119. =cut
  120.  
  121. # Local Variables:
  122. # mode: perl
  123. # perl-indent-level: 4
  124. # indent-tabs-mode: nil
  125. # End:
  126. #
  127. # vim: expandtab shiftwidth=4:
  128.