File Coverage

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

Criterion	Covered	Total	%
statement	14	14	100.0
branch	4	4	100.0
condition	5	6	83.3
subroutine	5	5	100.0
pod	0	2	0.0
total	28	31	90.3

use v5.12.0;
use warnings;
package Data::Rx::CoreType::one 0.200008;
# ABSTRACT: the Rx //one type

use parent 'Data::Rx::CoreType';

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

  if (! defined $value) {
    $self->fail({
      error   => [ qw(type) ],
      message => "found value is undef",
      value   => $value,
    });
  }

  return 1 unless ref $value and ! (
    eval { $value->isa('JSON::XS::Boolean') }
    or
    eval { $value->isa('JSON::PP::Boolean') }
    or
    eval { $value->isa('boolean') }
  );

  $self->fail({
    error   => [ qw(type) ],
    message => "found value is a reference/container type",
    value   => $value,
  });
}

sub subname   { 'one' }

1;

__END__