1use strict; 2use warnings; 3 4package Test::Deep::Class; 5 6use Test::Deep::Cmp; 7 8sub init 9{ 10 my $self = shift; 11 12 my $snobby = shift; 13 my $val = shift; 14 15 $self->{snobby} = $snobby; 16 $self->{val} = $val; 17} 18 19sub descend 20{ 21 my $self = shift; 22 my $got = shift; 23 24 local $Test::Deep::Snobby = $self->{snobby}; 25 26 Test::Deep::wrap($self->{val})->descend($got); 27} 28 291; 30