Select Code to Download

print "Using apply_roles_to_object\n";
my $test_1 = File->new;
...
Role::Tiny->apply_roles_to_package('File', 'Draw');
print "test_2->render after apply_roles_to_package\n";
$test_2->render;

Using apply_roles_to_object
test_1->render
...
This is package 'File' - render
test_2->render after apply_roles_to_package
This is package 'File' - render