Select Code to Download

{   package Base;
    sub x { ... }
...
    our @ISA = 'Base';
    sub y { shift->x }
}

package Package;
sub y { shift->x }

{   package SomeRole;
    # Implementor must provide y
...
    our @ISA = 'SomeRole';
    sub x { ... }
}

sub some_method {
    my ($self, $arg) = @_
...
    $arg->other_method();
    ...
}

sub some_method {
    my ($self) = @_
...
    $self->attribute->other_method();
    ...
}