view release on metacpan or  search on metacpan

t/delegate.t  view on Meta::CPAN

  'Supplying both "to" and "maybe_to" should fail';

done_testing;

{

    package Second;

    sub new {
        my $class = shift;
        return bless {} => $class;
    }

    sub name { return __PACKAGE__ }
}

{

    package Third;
    sub new { bless {} => shift }