#! perl-slw
use strict;
use 5.010;
{
    package Roles::Jumper;
    ##requires "name";
    sub import {
        my $caller = caller;
        {
            no strict;
            die "'name' method required" unless exists ${ "$caller\:\:"}{name};
            *{ "$caller\:\:jump" } = \&jump;
        }
        return;
    }

    sub jump {
        my $self = shift;
        say $self->name, " jumps!";
    }

}
{
    package Pet::Dog;
    ##use Role::Tiny::With;
    ##with "Roles::Jumper";
    #require Roles::Jumper; ## used if package in separate file
    Roles::Jumper->import;

    sub new {
        my $class = shift;
        bless {@_}, $class;
    }
    sub name {
        my $self = shift;
        return $self->{name};
    }
    sub sound {
        my $self = shift;
        say $self->name, " says woof!";
    }
}

{
    package Pet::Cat;
    ##use Role::Tiny::With;
    ##with "Roles::Jumper";
    #require Roles::Jumper; ## used if package in separate file
    Roles::Jumper->import;

    sub new {
        my $class = shift;
        bless {@_}, $class;
    }
    sub name {
        my $self = shift;
        return $self->{name};
    }
    sub sound {
        my $self = shift;
        say $self->name, " says meow!";
    }
}

my $fido  = Pet::Dog->new(name => "Fido");
$fido->jump;
$fido->sound;

my $felix = Pet::Cat->new(name => "Felix");
$felix->jump;
$felix->sound;
__END__
C:\test>roles.pl
Fido jumps!
Fido says woof!
Felix jumps!
Felix says meow!