File Coverage

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

Criterion	Covered	Total	%
statement	13	13	100.0
branch	1	2	50.0
condition	7	9	77.7
subroutine	5	5	100.0
pod	0	2	0.0
total	26	31	83.8

use strict;
use warnings;
package Data::Rx::CoreType::bool;
# ABSTRACT: the Rx //bool type
$Data::Rx::CoreType::bool::VERSION = '0.200007';
use parent 'Data::Rx::CoreType';

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

  return 1 if (
    defined($value)
    and 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 was not a bool",
    value   => $value,
  });
}

sub subname   { 'bool' }

1;

__END__