File Coverage

blib/lib/Number/Tolerant/Type/infinite.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	4	4	100.0
condition	6	6	100.0
subroutine	6	6	100.0
pod	3	3	100.0
total	36	36	100.0

use strict;
use warnings;
# ABSTRACT: an infinite tolerance

package
  Number::Tolerant::Type::infinite;
use parent qw(Number::Tolerant::Type);

sub construct { shift; { value => 0 } }

sub parse {
  my ($self, $string, $factory) = @_;
  return $factory->new('infinite') if $string =~ m!\Aany\s+number\z!;
  return;
}

sub valid_args { shift;
  return ($_[0]) if @_ == 1 and defined $_[0] and $_[0] eq 'infinite';
  return;
}

1;

__END__