#! /usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

{   package MyRole;
    use Role::Tiny;

    sub where { 'Role' }
    sub role  { 'yes' }
}


{   package MyClass;

    sub new   { bless {}, shift }
    sub where { 'Class' }
}


{   package MyComposed;
    use Role::Tiny::With;
    with 'MyRole';

    sub new   { bless {}, shift }
    sub where { 'Composed' }
}


my $c = 'MyComposed'->new;
say $c->$_ for qw( where role );