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

print "\n\n";

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