File Coverage

blib/lib/Data/Object/Role/Numeric.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	14	14	100.0
condition			n/a
subroutine	11	11	100.0
pod	0	9	0.0
total	50	59	84.7

# A Numeric Data Type Role for Perl 5
package Data::Object::Role::Numeric;

use 5.010;
use Data::Object::Role;

our $VERSION = '0.20'; # VERSION

sub downto {
    my ($integer, $argument) = @_;
    return [reverse $argument..$integer];
}

sub eq {
    my ($integer, $argument) = @_;
    return $integer == $argument ? 1 : 0;
}

sub gt {
    my ($integer, $argument) = @_;
    return $integer > $argument ? 1 : 0;
}

sub gte {
    my ($integer, $argument) = @_;
    return $integer >= $argument ? 1 : 0;
}

sub lt {
    my ($integer, $argument) = @_;
    return $integer < $argument ? 1 : 0;
}

sub lte {
    my ($integer, $argument) = @_;
    return $integer <= $argument ? 1 : 0;
}

sub ne {
    my ($integer, $argument) = @_;
    return $integer != $argument ? 1 : 0;
}

sub to {
    my ($integer, $argument) = @_;
    return [$integer..$argument] if $integer <= $argument;
    return [reverse($argument..$integer)];
}

sub upto {
    my ($integer, $argument) = @_;
    return [$integer..$argument];
}

1;