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