File Coverage

blib/lib/Salvation/TC/Type/Number/Integer.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	25	25	100.0

package Salvation::TC::Type::Number::Integer;

use strict;
use warnings;

use base 'Salvation::TC::Type::Number';

use Salvation::TC::Exception::WrongType ();

my $re = qr/^[-+]?\d+$/;

sub Check {

    my ( $class, $value ) = @_;

    defined( $value ) || Salvation::TC::Exception::WrongType -> throw( 'type' => 'Integer', 'value' => 'UNDEFINED' );
    ( $value =~ $re ) || Salvation::TC::Exception::WrongType -> throw( 'type' => 'Number::Integer', 'value' => $value );
}

1;
__END__