File Coverage

blib/lib/Template/Plugin/String/Compare.pm

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

package Template::Plugin::String::Compare;

use strict;
use base qw/Template::Plugin::String/;

$Template::Plugin::String::Compare::VERSION = 0.01;

use overload (
    '<'      => \&_lt,
    '>'      => \&_gt,
    '<='     => \&_le,
    '>='     => \&_ge,
    fallback => 1,
);

sub _lt {
    return $_[2]
        ? "$_[1]" lt "$_[0]"
        : "$_[0]" lt "$_[1]";
}

sub _gt {
    return $_[2]
        ? "$_[1]" gt "$_[0]"
        : "$_[0]" gt "$_[1]";
}

sub _le {
    return $_[2]
        ? "$_[1]" le "$_[0]"
        : "$_[0]" le "$_[1]";
}

sub _ge {
    return $_[2]
        ? "$_[1]" ge "$_[0]"
        : "$_[0]" ge "$_[1]";
}

sub compare {
    my ($self, $text) = @_;
    return "$self" cmp "$text";
}

1;
__END__