use strict; use warnings; use feature 'say';
use Role::Tiny;
package MyClass { use Moo };
package MyRole { use Moo::Role };
my $o = MyClass->new;
Role::Tiny->apply_roles_to_object($o, 'MyRole');
say ref($o);

##</code><code>##

MyClass__WITH__MyRole