Actually Class::MOP does not provide for a (direct) way to add methods to an instance, it mostly deals with just classes. And with Moose, there is no way to add a single method on a per-instance basis really either, you do it with runtime Roles instead, like this:

{
    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
[download]

Ruby accomplishes this type of thing with "Eigenclasses" which were in the Perl 6 metamodel at one time, but were not backported to Moose (because they tended to make simple metaclass things overly complex). The Ruby idiom of:

class << obj
  def new_method
   "fweeee"
  end
end
[download]

obj.add_singleton_method(lambda { "fweee" })
[download]

I think Moose is a port of Perl 6's OO system back to Perl 5.

⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊

AIUI that's how it started, but to quote from Moose's docs themselves:

Is Moose just Perl 6 in Perl 5?

No. While Moose is very much inspired by Perl 6, it is not itself Perl 6. Instead, it is an OO system for Perl 5. I built Moose because I was tired or writing the same old boring Perl 5 OO code, and drooling over Perl 6 OO. So instead of switching to Ruby, I wrote Moose :)

However audreyt mentions it in her Deploying Perl 6 talk and specifically writes:

What is Moose?

• Complete object model for Perl 5
• Based on the Perl 6 object model
• Production Ready