From: Dave Rolsky Date: Fri, 28 Aug 2009 20:20:07 +0000 (-0500) Subject: Remove debugging cruft X-Git-Tag: 0.93~11 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=47219b29ce1c7e54639778a5e3291c221f400fb4;hp=f2782f4645ba74f836f7eee57c416038c2333a1e;p=gitmo%2FClass-MOP.git Remove debugging cruft --- diff --git a/lib/Class/MOP/Package.pm b/lib/Class/MOP/Package.pm index fd745db..7197445 100644 --- a/lib/Class/MOP/Package.pm +++ b/lib/Class/MOP/Package.pm @@ -331,7 +331,7 @@ sub add_method { # The method object won't be created until required. $body = $method; } - Carp::cluck('wtf') unless defined $self->_method_map; + $self->_method_map->{$method_name} = $method; my ( $current_package, $current_name ) = Class::MOP::get_code_info($body);