<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">use strict;
use warnings;

package Test::Deep::Class;

use Test::Deep::Cmp;

sub init
{
  my $self = shift;

  my $snobby = shift;
  my $val = shift;

  $self-&gt;{snobby} = $snobby;
  $self-&gt;{val} = $val;
}

sub descend
{
  my $self = shift;
  my $got = shift;

  local $Test::Deep::Snobby = $self-&gt;{snobby};

  Test::Deep::wrap($self-&gt;{val})-&gt;descend($got);
}

1;
</pre></body></html>