ACIL FM

Nama	Ukuran	Aksi
Assert.pm	3.43 MB	View DL Edit
Datafile.pm	4.4 MB	View DL Edit
Date.pm	11.22 MB	View DL Edit
Directory.pm	10.9 MB	View DL Edit
Dumper.pm	3.66 MB	View DL Edit
File.pm	10.92 MB	View DL Edit
Filter.pm	9.63 MB	View DL Edit
Format.pm	1.79 MB	View DL Edit
HTML.pm	5.87 MB	View DL Edit
Image.pm	11.43 MB	View DL Edit
Iterator.pm	1.95 MB	View DL Edit
Math.pm	3.99 MB	View DL Edit
Pod.pm	1.61 MB	View DL Edit
Procedural.pm	3.59 MB	View DL Edit
Scalar.pm	3.67 MB	View DL Edit
String.pm	17.69 MB	View DL Edit
Table.pm	12.41 MB	View DL Edit
URL.pm	5.67 MB	View DL Edit
View.pm	2.4 MB	View DL Edit
Wrap.pm	3.18 MB	View DL Edit

Edit file: /usr/local/lib64/perl5/5.32/Template/Plugin/Iterator.pm

#============================================================= -*-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-2022 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 = '3.100';

#------------------------------------------------------------------------
# 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:

Batal