1use strict; 2use warnings; 3 4package Test::Deep::ArrayLength; 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 $self->test_reftype($got, "ARRAY"); 25 26 return Test::Deep::descend($got, Test::Deep::arraylengthonly($exp)); 27} 28 291; 30