From: gfx <gfuji@cpan.org>
Date: Tue, 17 Nov 2009 06:08:15 +0000 (+0900)
Subject: Mouse::Object has meta() method
X-Git-Tag: 0.40_07~13
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=007481ba62fece04677f0a81f964a58679262e4e;p=gitmo%2FMouse.git

Mouse::Object has meta() method
---

diff --git a/lib/Mouse/Meta/Attribute.pm b/lib/Mouse/Meta/Attribute.pm
index c513a8d..c30a9ee 100644
--- a/lib/Mouse/Meta/Attribute.pm
+++ b/lib/Mouse/Meta/Attribute.pm
@@ -360,7 +360,7 @@ sub _canonicalize_handles {
 
         my $meta = Mouse::Meta::Class->initialize("$class_or_role"); # "" for stringify
         return map  { $_ => $_ }
-               grep { $_ ne 'meta' && !Mouse::Object->can($_) && $_ =~ $handles }
+               grep { !Mouse::Object->can($_) && $_ =~ $handles }
                    Mouse::Util::is_a_metarole($meta)
                         ? $meta->get_method_list
                         : $meta->get_all_method_names;
diff --git a/lib/Mouse/Object.pm b/lib/Mouse/Object.pm
index 787cc17..6acd681 100644
--- a/lib/Mouse/Object.pm
+++ b/lib/Mouse/Object.pm
@@ -1,5 +1,5 @@
 package Mouse::Object;
-use Mouse::Util qw(does dump); # enables strict and warnings
+use Mouse::Util qw(does dump meta); # enables strict and warnings
 
 sub new;