File Coverage

blib/lib/Template/Plugin/ListMoreUtilsVMethods.pm

Criterion	Covered	Total	%
statement	87	106	82.0
branch			n/a
condition			n/a
subroutine	31	38	81.5
pod	0	28	0.0
total	118	172	68.6

package Template::Plugin::ListMoreUtilsVMethods;

use strict;
use warnings;

use vars qw($VERSION @ISA $VMETHOD_PACKAGE @LIST_OPS);

use Template::Plugin::VMethods;
$VERSION = '0.03';
@ISA     = qw(Template::Plugin::VMethods);

use Template::Plugin::ListMoreUtils;
$VMETHOD_PACKAGE = 'Template::Plugin::ListMoreUtils';

@LIST_OPS = (
    qw(mesh zip uniq minmax singleton),
    any                 => \&any,
    all                 => \&all,
    none                => \&none,
    notall              => \¬all,
    true                => \&true,
    false               => \&false,
    firstidx            => \&firstidx,
    first_index         => \&first_index,
    lastidx             => \&lastidx,
    last_index          => \&last_index,
    onlyidx             => \&onlyidx,
    only_index          => \&only_index,
    firstval            => \&firstval,
    first_value         => \&first_value,
    lastval             => \&lastval,
    last_value          => \&last_value,
    onlyval             => \&onlyval,
    only_value          => \&only_value,
    firstval            => \&firstval,
    first_result        => \&first_result,
    lastval             => \&lastval,
    last_result         => \&last_result,
    onlyval             => \&onlyval,
    only_result         => \&only_result,
    insert_after        => \&insert_after,
    insert_after_string => \&insert_after_string,
    apply               => \&apply,
    after               => \&after,
    after_incl          => \&after_incl,
    before              => \&before,
    before_incl         => \&before_incl,
    indexes             => \&indexes,
    pairwise            => \&pairwise,
    part                => \&part,
    bsearch             => \&bsearch,
    bsearchidx          => \&bsearchidx,
    bsearch_index       => \&bsearch_index,
);

=head1 NAME

Template::Plugin::ListMoreUtilsVMethods - TT2 plugin to use List::MoreUtils as virtual methods of lists

=head1 SYNOPSIS

  [% my1to9even = [ 2, 4, 6, 8 ];
     my1to9prim = [ 2, 3, 5, 7 ];
     my1to9odd  = [ 1, 3, 5, 7, 9 ]; %]

  [% USE ListMoreUtilsVMethods %]
  [% my1and9 = my1to9all.minmax; %]
  [% my1and9[0] %] is the smalled number of 1 .. 9, the largest is [% my1and9[1] %]

=head1 DESCRIPTION

This module provides an Template::Toolkit interface to Tassilo von Parseval's
L. It extends the built-in functions dealing with lists as
well as L.

=head1 USAGE

To use this module from templates, you can choose between class interface

  [% my1to9even = [ 2, 4, 6, 8 ];
     my1to9prim = [ 2, 3, 5, 7 ];
     my1to9odd  = [ 1, 3, 5, 7, 9 ]; %]

  [% USE ListMoreUtilsVMethods %]
  [% my1and9 = my1to9all.minmax; %]
  [% my1and9[0] %] is the smalled number of 1 .. 9, the largest is [% my1and9[1] %]

=head1 FUNCTIONS PROVIDED

The functions/methods provided are the same as in
L, regardless the preferred interface.

=cut

no strict 'refs';

sub any(\@&) { List::MoreUtils::any( \&{ $_[1] }, @{ $_[0] } ); }

sub all(\@&) { List::MoreUtils::all( \&{ $_[1] }, @{ $_[0] } ); }

sub none(\@&) { List::MoreUtils::none( \&{ $_[1] }, @{ $_[0] } ); }

sub notall(\@&) { List::MoreUtils::notall( \&{ $_[1] }, @{ $_[0] } ); }

sub true(\@&) { List::MoreUtils::true( \&{ $_[1] }, @{ $_[0] } ); }

sub false(\@&) { List::MoreUtils::false( \&{ $_[1] }, @{ $_[0] } ); }

sub firstidx(\@&) { List::MoreUtils::firstidx( \&{ $_[1] }, @{ $_[0] } ); }
sub first_index(\@&);
*first_index = *{'firstidx'}{CODE};

sub lastidx(\@&) { List::MoreUtils::lastidx( \&{ $_[1] }, @{ $_[0] } ); }
sub last_index(\@&);
*last_index = *{'lastidx'}{CODE};

sub onlyidx(\@&) { List::MoreUtils::onlyidx( \&{ $_[1] }, @{ $_[0] } ); }
sub only_index(\@&);
*only_index = *{'onlyidx'}{CODE};

sub firstres(\@&) { List::MoreUtils::firstres( \&{ $_[1] }, @{ $_[0] } ); }
sub first_result(\@&);
*first_result = *{'firstres'}{CODE};

sub lastres(\@&) { List::MoreUtils::lastres( \&{ $_[1] }, @{ $_[0] } ); }
sub last_result(\@&);
*last_result = *{'lastres'}{CODE};

sub onlyres(\@&) { List::MoreUtils::onlyres( \&{ $_[1] }, @{ $_[0] } ); }
sub only_result(\@&);
*only_result = *{'onlyres'}{CODE};

sub firstval(\@&) { List::MoreUtils::firstval( \&{ $_[1] }, @{ $_[0] } ); }
sub first_value(\@&);
*first_value = *{'firstval'}{CODE};

sub lastval(\@&) { List::MoreUtils::lastval( \&{ $_[1] }, @{ $_[0] } ); }
sub last_value(\@&);
*last_value = *{'lastval'}{CODE};

sub onlyval(\@&) { List::MoreUtils::onlyval( \&{ $_[1] }, @{ $_[0] } ); }
sub only_value(\@&);
*only_value = *{'onlyval'}{CODE};

sub insert_after (\@&$) { List::MoreUtils::insert_after( \&{ $_[1] }, $_[2], @{ $_[0] } ); }
sub insert_after_string (\@$$) { List::MoreUtils::insert_after_string( $_[1], $_[2], @{ $_[0] } ); }

sub apply(\@&) { List::MoreUtils::apply( \&{ $_[1] }, @{ $_[0] } ); }

sub after(\@&) { List::MoreUtils::after( \&{ $_[1] }, @{ $_[0] } ); }

sub after_incl(\@&) { List::MoreUtils::after_incl( \&{ $_[1] }, @{ $_[0] } ); }

sub before(\@&) { List::MoreUtils::before( \&{ $_[1] }, @{ $_[0] } ); }

sub before_incl(\@&) { List::MoreUtils::before_incl( \&{ $_[1] }, @{ $_[0] } ); }

sub indexes(\@&) { List::MoreUtils::indexes( \&{ $_[1] }, @{ $_[0] } ); }

sub pairwise(\@&\@)
{
    my $userfn = $_[1];
    List::MoreUtils::pairwise( sub { $userfn->( $a, $b ); }, @{ $_[0] }, @{ $_[2] } );
}

sub part(\@&) { List::MoreUtils::part( \&{ $_[1] }, @{ $_[0] } ) }

sub bsearch(\@&)
{
    my $userfn = $_[1];
    List::MoreUtils::bsearch( sub { $userfn->($_) }, @{ $_[0] } );
}

sub bsearchidx(\@&)
{
    my $userfn = $_[1];
    List::MoreUtils::bsearchidx( sub { $userfn->($_) }, @{ $_[0] } );
}

sub bsearch_index(\@&)
{
    my $userfn = $_[1];
    List::MoreUtils::bsearch_index( sub { $userfn->($_) }, @{ $_[0] } );
}

=head1 LIMITATION

Except the typical limitations known from perl functions embedded in
L, the only limitation I currently miss is being
able to use TT2 defined macros as callback.

=head1 BUGS

Please report any bugs or feature requests to
C, or through the web interface at
L.
I will be notified, and then you'll automatically be notified of progress
on your bug as I make changes.

=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Template::Plugin::ListMoreUtils

You can also look for information at:

=over 4

=item * RT: CPAN's request tracker

L

=item * AnnoCPAN: Annotated CPAN documentation

L

=item * CPAN Ratings

L

=item * Search CPAN

L

=back

Business and commercial support should be acquired via preferred freelancer
agencies.

=head1 LICENSE AND COPYRIGHT

Copyright 2009-2015 Jens Rehsack.

This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.

=head1 SEE ALSO

perl(1), L,

=cut

1;