File Coverage

blib/lib/Template/Plugin/Shuffle.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	32	32	100.0

package Template::Plugin::Shuffle;

use strict;
use vars qw($VERSION);
$VERSION = "0.02";

use base qw(Template::Plugin);
use Template::Plugin;
use Template::Stash;
use Algorithm::Numerical::Shuffle qw(shuffle);

sub new {
    my ($pkg, $context, @args) = @_;
    $context->define_vmethod('LIST', shuffle => sub {
                                 return [ shuffle(@{$_[0]}) ];
                             });
    return $pkg->SUPER::new($context, @args);
}

1;
__END__