use strict;
use warnings;

package Foo;
use Moo;

package Trapezist;
use Role::Tiny;

sub swing { print "Whoooosh!\n"; }

package Trumpeter;
use Role::Tiny;

sub swing { print "1, 2, ... 1, 2, 3, 4, Hit it!\n"; }

package main;

my $person1 = Foo->new;
Role::Tiny->apply_roles_to_object ($person1, 'Trapezist');
my $person2 = Foo->new;
Role::Tiny->apply_roles_to_object ($person2, 'Trumpeter');

$person1->swing;
$person2->swing;