File Coverage

blib/lib/Template/Plugin/ListCompare.pm

Criterion	Covered	Total	%
statement	27	32	84.3
branch	5	10	50.0
condition	2	6	33.3
subroutine	6	7	85.7
pod	2	2	100.0
total	42	57	73.6

package Template::Plugin::ListCompare;

use strict;
use warnings;
use base qw/Template::Plugin List::Compare/;
use List::Compare;

use 5.008_008;

our $VERSION = 0.05;

sub new {
    my @params  = @_;
    my $class   = shift @params;
    my $context = shift @params;

    my ( $unsorted, $accelerated );

    if ( $params[0] eq '-u' or $params[0] eq '--unsorted' ) {
        $unsorted = shift @params;
    }

    if ( $params[0] eq '-a' or $params[0] eq '--accelerated' ) {
        $accelerated = shift @params;
    }

    #Create arrayrefs from the scalar parameters:
    @params = map { ref($_) eq q{} ? [$_] : $_ } @params;

    if ($accelerated) {
        unshift @params, $accelerated;
    }

    if ($unsorted) {
        unshift @params, $unsorted;
    }

    my $self = List::Compare->new(@params);
    return bless $self, $class;
}

sub get_version { return $VERSION; }

1;

__END__