File Coverage

blib/lib/Data/Rx/CoreType/int.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	23	24	95.8

use strict;
use warnings;
package Data::Rx::CoreType::int;
# ABSTRACT: the Rx //int type
$Data::Rx::CoreType::int::VERSION = '0.200006';
use parent 'Data::Rx::CoreType::num';

sub subname   { 'int' }

sub __type_fail {
  my ($self, $value) = @_;
  $self->fail({
    error   => [ qw(type) ],
    message => "value is not an integer",
    value   => $value,
  });
}

sub _value_is_of_type {
  my ($self, $value) = @_;

  return unless $self->SUPER::_value_is_of_type($value);
  return ($value == int $value);
}

1;

__END__