X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Singleton.git;a=blobdiff_plain;f=lib%2FMooseX%2FSingleton%2FMeta%2FMethod%2FConstructor.pm;h=b4dbc25d68672dc859a3f720ee340fcca6c5ebce;hp=4c866e9e56be6d00f929cb0171935faf223d823e;hb=a06ef25ab7f693383a90c8e0821a7ecc37d7ae5d;hpb=5379464bf071cc8e774f79a5534c8087813d5c84 diff --git a/lib/MooseX/Singleton/Meta/Method/Constructor.pm b/lib/MooseX/Singleton/Meta/Method/Constructor.pm index 4c866e9..b4dbc25 100644 --- a/lib/MooseX/Singleton/Meta/Method/Constructor.pm +++ b/lib/MooseX/Singleton/Meta/Method/Constructor.pm @@ -30,6 +30,7 @@ sub intialize_body { $self->_generate_slot_initializer($_) } 0 .. (@{$self->attributes} - 1)); + $source .= ";\n" . $self->_generate_triggers(); $source .= ";\n" . $self->_generate_BUILDALL(); $source .= ";\n" . 'return ${$existing} = $instance';