Server IP : 66.29.132.122 / Your IP : 3.145.112.217 Web Server : LiteSpeed System : Linux business142.web-hosting.com 4.18.0-553.lve.el8.x86_64 #1 SMP Mon May 27 15:27:34 UTC 2024 x86_64 User : admazpex ( 531) PHP Version : 7.2.34 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : OFF Directory : /usr/local/lib64/perl5/Template/Plugin/ |
Upload File : |
#============================================================= -*-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(@_); } 1; __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 Copyright (C) 1996-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. =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: