{
    package My::Class;
    use Moose;

    sub hello { "Hello" }

    package My::Role;
    use Moose::Role;

    sub foo { "Foo" }
}

my $obj_1 = My::Class->new;
my $obj_2 = My::Class->new;

My::Role->meta->apply($obj_1);

print $obj_1->foo; # print "Foo"
print $obj_2->foo; # dies with a method not found error

##</code><code>##

class << obj
  def new_method
   "fweeee"
  end
end

##</code><code>##

obj.add_singleton_method(lambda { "fweee" })