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