File Coverage

blib/lib/Farly/Value/Integer.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch	9	12	75.0
condition			n/a
subroutine	15	15	100.0
pod	10	11	90.9
total	75	79	94.9

package Farly::Value::Integer;

use 5.008008;
use strict;
use warnings;
use Carp;

our $VERSION = '0.26';

sub new {
    my ( $class, $number ) = @_;

    confess "integer required"
      unless defined($number);

    $number =~ s/^\s+|\s+$//g;

    confess "not an integer"
      unless ( $number =~ /^\d+$/ );

    return bless( \$number, $class );
}

sub number { return ${ $_[0] } }

sub as_string { return ${ $_[0] } }

sub equals {
    my ( $self, $other ) = @_;

    if ( $other->isa('Farly::Value::Integer') ) {
        return $self->number() == $other->number();
    }
}

sub contains {
    my ( $self, $other ) = @_;
    return $self->equals($other);
}

sub intersects {
    my ( $self, $other ) = @_;
    return $self->equals($other);
}

sub compare {
    my ( $self, $other ) = @_;

    if ( $other->isa('Farly::Value::Integer') ) {
        return $self->number() <=> $other->number();
    }
}

sub gt {
    my ( $self, $other ) = @_;

    if ( $other->isa('Farly::Value::Integer') ) {
        return $self->number() > $other->number();
    }
}

sub lt {
    my ( $self, $other ) = @_;

    if ( $other->isa('Farly::Value::Integer') ) {
        return $self->number() < $other->number();
    }
}

sub incr {
    ${ $_[0] }++;
}

sub decr {
    ${ $_[0] }--;
}

1;
__END__