File Coverage

blib/lib/Test/Deep/Filter/Object.pm

Criterion	Covered	Total	%
statement	32	33	96.9
branch	3	4	75.0
condition	2	3	66.6
subroutine	9	9	100.0
pod	5	5	100.0
total	51	54	94.4

use 5.006;    # our
use strict;
use warnings;

package Test::Deep::Filter::Object;

# ABSTRACT: Internal plumbing for Test::Deep::Filter

our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY

our $VERSION = '0.001001';

use parent 'Test::Deep::Cmp';







sub init {
  my ( $self, $filter, $expected ) = @_;
  $self->{ __PACKAGE__ . '_filter' }   = $filter;
  $self->{ __PACKAGE__ . '_expected' } = $expected;
  return;
}











## no critic ( RequireArgUnpacking, RequireFinalReturn )
sub filter   { $_[0]->{ __PACKAGE__ . '_filter' } }
sub expected { $_[0]->{ __PACKAGE__ . '_expected' } }
## use critic







sub descend {
  my ( $self, $got ) = @_;
  delete $self->{ __PACKAGE__ . '_error' };
  my $return;
  {
    local $@ = undef;
    $return = eval { local $_ = $got; $self->filter->($got) };
    if ( defined $@ and length $@ ) {
      $self->{ __PACKAGE__ . '_error' } = $@;
      return 0;
    }
  }
  require Test::Deep;
  return Test::Deep::wrap( $self->expected )->descend($return);    ## no critic (ProhibitCallsToUnexportedSubs)
}







sub diagnostics {
  my ( $self, $where, $last_exp ) = @_;
  return $self->{ __PACKAGE__ . '_error' } if exists $self->{ __PACKAGE__ . '_error' };
  return $self->expected->diagnostics( $where, $last_exp );
}
1;

__END__