1use strict; 2use warnings; 3 4package Test::Deep::Array; 5 6use Test::Deep::Ref; 7 8sub init 9{ 10 my $self = shift; 11 12 my $val = shift; 13 14 $self->{val} = $val; 15} 16 17sub descend 18{ 19 my $self = shift; 20 my $got = shift; 21 22 my $exp = $self->{val}; 23 24 return 0 unless Test::Deep::descend($got, Test::Deep::arraylength(scalar @$exp)); 25 26 return 0 unless $self->test_class($got); 27 28 return Test::Deep::descend($got, Test::Deep::arrayelementsonly($exp)); 29} 30 31sub reset_arrow 32{ 33 return 0; 34} 35 361; 37