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
|
#============================================================= -*-Perl-*-
#
# Template::Plugin::View
#
# DESCRIPTION
# A user-definable view based on templates. Similar to the concept of
# a "Skin".
#
# AUTHOR
# Andy Wardley <abw@kfs.org>
#
# COPYRIGHT
# Copyright (C) 2000 Andy Wardley. All Rights Reserved.
#
# This module is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# REVISION
# $Id: View.pm,v 2.64 2004/01/30 19:33:20 abw Exp $
#
#============================================================================
package Template::Plugin::View;
require 5.004;
use strict;
use Template::Plugin;
use vars qw( $VERSION );
use base qw( Template::Plugin );
$VERSION = sprintf("%d.%02d", q$Revision: 2.64 $ =~ /(\d+)\.(\d+)/);
use Template::View;
#------------------------------------------------------------------------
# new($context, \%config)
#------------------------------------------------------------------------
sub new {
my $class = shift;
my $context = shift;
my $view = Template::View->new($context, @_)
|| return $class->error($Template::View::ERROR);
$view->seal();
return $view;
}
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::View - Plugin to create views (Template::View)
=head1 SYNOPSIS
[% USE view(
prefix = 'splash/' # template prefix/suffix
suffix = '.tt2'
bgcol = '#ffffff' # and any other variables you
style = 'Fancy HTML' # care to define as view metadata,
items = [ foo, bar.baz ] # including complex data and
foo = bar ? baz : x.y.z # expressions
%]
[% view.title %] # access view metadata
[% view.header(title = 'Foo!') %] # view "methods" process blocks or
[% view.footer %] # templates with prefix/suffix added
=head1 DESCRIPTION
This plugin module creates Template::View objects. Views are an
experimental feature and are subject to change in the near future.
In the mean time, please consult L<Template::View> for further info.
=head1 AUTHOR
Andy Wardley E<lt>abw@andywardley.comE<gt>
L<http://www.andywardley.com/|http://www.andywardley.com/>
=head1 VERSION
2.64, distributed as part of the
Template Toolkit version 2.14, released on 04 October 2004.
=head1 COPYRIGHT
Copyright (C) 1996-2004 Andy Wardley. All Rights Reserved.
Copyright (C) 1998-2002 Canon Research Centre Europe Ltd.
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::Plugin|Template::Plugin>, L<Template::View|Template::View>
=cut
# Local Variables:
# mode: perl
# perl-indent-level: 4
# indent-tabs-mode: nil
# End:
#
# vim: expandtab shiftwidth=4:
|
