sub test_the_thing : Test {
    my $self = shift;
    ...
    $object_under_test->do_the_thing( foo => $self, ... )
    ...
}

sub called_from_do_the_thing {
    my $self = shift;
    ok array_eq(\@_, [qw/foo bar baz/];
}