File Coverage

blib/lib/HTML/Template/Plugin/Dot/Helpers/Number.pm

Criterion	Covered	Total	%
statement	14	17	82.3
branch	2	2	100.0
condition	2	3	66.6
subroutine	6	9	66.6
pod	6	6	100.0
total	30	37	81.0

package HTML::Template::Plugin::Dot::Helpers::Number;
{
  $HTML::Template::Plugin::Dot::Helpers::Number::VERSION = '0.06';
}

use strict;
use warnings;
use base qw/Number::Format/;

sub format_price {
    my $self = shift;
    return unless @_ and defined $_[0]; # suppress a warning in parent
    $self->SUPER::format_price(@_);
}

sub equals
{
    return $_[1] == $_[2];
}

sub le
{
    return $_[1] <= $_[2];
}

sub lt
{
    return $_[1] < $_[2];
}

sub ge
{
    return $_[1] >= $_[2];
}

sub gt
{
    return $_[1] > $_[2];
}

1;

__END__