golden hour

/usr/local/lib64/perl5/5.32/Template/Plugin

⬆️ Go Up

Upload

File/Folder	Size	Actions
Assert.pm	3.43 KB	Del OK
Datafile.pm	4.4 KB	Del OK
Date.pm	11.22 KB	Del OK
Directory.pm	10.9 KB	Del OK
Dumper.pm	3.66 KB	Del OK
File.pm	10.92 KB	Del OK
Filter.pm	9.63 KB	Del OK
Format.pm	1.79 KB	Del OK
HTML.pm	5.87 KB	Del OK
Image.pm	11.43 KB	Del OK
Iterator.pm	1.95 KB	Del OK
Math.pm	3.99 KB	Del OK
Pod.pm	1.61 KB	Del OK
Procedural.pm	3.59 KB	Del OK
Scalar.pm	3.67 KB	Del OK
String.pm	17.69 KB	Del OK
Table.pm	12.41 KB	Del OK
URL.pm	5.67 KB	Del OK
View.pm	2.4 KB	Del OK
Wrap.pm	3.18 KB	Del OK

Edit: 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(@_); } 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:
Save