From: gfx Date: Tue, 2 Mar 2010 09:21:34 +0000 (+0900) Subject: Method::Constructor and Method::Destructor must be loaded in pure Perl mode X-Git-Tag: 0.50_06~2 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e088c5fcd7b02fbb0f13d5a7166b8b30610c1c2e;p=gitmo%2FMouse.git Method::Constructor and Method::Destructor must be loaded in pure Perl mode --- diff --git a/lib/Mouse/PurePerl.pm b/lib/Mouse/PurePerl.pm index b1e652f..bdd6661 100644 --- a/lib/Mouse/PurePerl.pm +++ b/lib/Mouse/PurePerl.pm @@ -243,6 +243,9 @@ sub add_method { package Mouse::Meta::Class; +use Mouse::Meta::Method::Constructor; +use Mouse::Meta::Method::Destructor; + sub method_metaclass { $_[0]->{method_metaclass} || 'Mouse::Meta::Method' } sub attribute_metaclass { $_[0]->{attribute_metaclass} || 'Mouse::Meta::Attribute' }