Select Code to Download

package Bob;
sub new {bless({}, shift)->init}
...
    $self;
}
my $bob = Bob->new;

package MyUncle;
sub new {bless({}, shift)->init}
...
    $self
}
my $bob_is_my_uncle = BobIsMyUncle->new;