File Coverage

blib/lib/Repl/Spec/Type/NumberType.pm

Criterion	Covered	Total	%
statement	21	23	91.3
branch	1	2	50.0
condition	1	3	33.3
subroutine	5	7	71.4
pod	0	3	0.0
total	28	38	73.6

package Repl::Spec::Type::NumberType;

use strict;
use warnings;
use Carp;

# No arguments required.
sub new
{
    my $invocant = shift;
    my $class = ref($invocant) || $invocant;

    my $self= {};
    return bless $self, $class;
}

sub guard
{
    my $self = shift;
    my $arg = shift;

    my $test = $arg;
    eval {
        local $SIG{__WARN__} = sub {die $_[0]}; # Turn warnings into exceptions.
        $test += 0;
    };
    croak sprintf("Expected type number but received '%s'.", $arg) if $@;
    return $arg;
}

sub name
{
    return 'number';
}

1;