File Coverage

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

Criterion	Covered	Total	%
statement	27	27	100.0
branch	5	6	83.3
condition	3	6	50.0
subroutine	7	7	100.0
pod	0	3	0.0
total	42	49	85.7

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

use Scalar::Util ();

sub guts_from_arg {
  my ($class, $arg, $rx, $type) = @_;

  Carp::croak("unknown arguments to new")
    unless Data::Rx::Util->_x_subset_keys_y($arg, { of  => 1});

  Carp::croak("no 'of' parameter given to //all") unless exists $arg->{of};

  my $of = $arg->{of};

  Carp::croak("invalid 'of' argument to //all") unless
    defined $of and Scalar::Util::reftype $of eq 'ARRAY' and @$of;

  return { of => [ map {; $rx->make_schema($_) } @$of ] };
}

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

  my @subchecks;
  for my $i (0 .. $#{ $self->{of} }) {
    push @subchecks, [
      $value,
      $self->{of}[$i],
      {
        check_path => [ [ 'of', 'key'], [ $i, 'index' ] ],
      }
    ];
  }

  $self->perform_subchecks(\@subchecks);

  return 1;
}

sub subname   { 'all' }

1;

__END__