X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FPurePerl.pm;h=e50b57aaa460fb1e556f235d9873c4275f6bd416;hp=ecc61e103a466c19e91c9f5724bc731e4343f9d8;hb=7efbc77d922079f81c55e2f1535f222979fe1d96;hpb=074a414dea92037837ef040f5b0c0e75d0c075a0

diff --git a/lib/Mouse/PurePerl.pm b/lib/Mouse/PurePerl.pm
index ecc61e1..e50b57a 100644
--- a/lib/Mouse/PurePerl.pm
+++ b/lib/Mouse/PurePerl.pm
@@ -203,6 +203,7 @@ sub add_method {
 package
     Mouse::Meta::Class;
 
+sub constructor_class()   { 'Mouse::Meta::Method::Constructor' }
 
 sub is_anon_class{
     return exists $_[0]->{anon_serial_id};