FM / Plugin

/usr/local/lib64/perl5.legacy/Template/Plugin/

/usr/local/lib64/perl5.legacy/Template/Plugin

Name	Size	Mode	Actions
Assert.pm	3504	0444	edit dl rm
CGI.pm	3087	0444	edit dl rm
Datafile.pm	4243	0444	edit dl rm
Date.pm	10698	0444	edit dl rm
Directory.pm	11220	0444	edit dl rm
Dumper.pm	3598	0444	edit dl rm
File.pm	11259	0444	edit dl rm
Filter.pm	10408	0444	edit dl rm
Format.pm	1835	0444	edit dl rm
HTML.pm	6024	0444	edit dl rm
Image.pm	11730	0444	edit dl rm
Iterator.pm	2003	0444	edit dl rm
Math.pm	4063	0444	edit dl rm
Pod.pm	1652	0444	edit dl rm
Procedural.pm	3678	0444	edit dl rm
Scalar.pm	3769	0444	edit dl rm
String.pm	18167	0444	edit dl rm
Table.pm	12705	0444	edit dl rm
URL.pm	5841	0444	edit dl rm
View.pm	2476	0444	edit dl rm
Wrap.pm	3271	0444	edit dl rm

Edit: /usr/local/lib64/perl5.legacy/Template/Plugin/Iterator.pm (2003B)

#============================================================= -*-Perl-*-
#
# Template::Plugin::Iterator
#
# DESCRIPTION
#
#   Plugin to create a Template::Iterator from a list of items and optional
#   configuration parameters.
#
# AUTHOR
#   Andy Wardley   <abw@wardley.org>
#
# COPYRIGHT
#   Copyright (C) 2000-2007 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.
#
#============================================================================

package Template::Plugin::Iterator;

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

our $VERSION = 2.68;

#------------------------------------------------------------------------
# new($context, \@data, \%args)
#------------------------------------------------------------------------

sub new {
    my $class   = shift;
    my $context = shift;
    Template::Iterator->new(@_);
}

__END__

=head1 NAME

Template::Plugin::Iterator - Plugin to create iterators (Template::Iterator)

=head1 SYNOPSIS

[% USE iterator(list, args) %]
    
    [% FOREACH item = iterator %]
       [% '<ul>' IF iterator.first %]
       <li>[% item %]
       [% '</ul>' IF iterator.last %]
    [% END %]

=head1 DESCRIPTION

The iterator plugin provides a way to create a L<Template::Iterator> object 
to iterate over a data set.  An iterator is implicitly automatically by the
L<FOREACH> directive.  This plugin allows the iterator to be explicitly created
with a given name.

=head1 AUTHOR

Andy Wardley E<lt>abw@wardley.orgE<gt> L<http://wardley.org/>

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

=cut

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

cmd: