X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMethod%2FGenerate%2FConstructor.pm;h=95cbe886756f6e8cb79a119c34eb0b1deaf3561f;hb=faa9ce11cefee1e6f7800ec1dbe561717c162161;hp=c11cbd2b8c2d159e4cb5cb2c545c0a02b1ff67c9;hpb=49d332df39656855cadaa6d4775f6df1a238b7c9;p=gitmo%2FRole-Tiny.git diff --git a/lib/Method/Generate/Constructor.pm b/lib/Method/Generate/Constructor.pm index c11cbd2..95cbe88 100644 --- a/lib/Method/Generate/Constructor.pm +++ b/lib/Method/Generate/Constructor.pm @@ -55,7 +55,7 @@ sub generate_method { $body .= ' my $new = '.$self->construction_string.";\n"; $body .= $self->_assign_new($spec); if ($into->can('BUILD')) { - { local $@; require Method::Generate::BuildAll; } + require Method::Generate::BuildAll; $body .= Method::Generate::BuildAll->new->buildall_body_for( $into, '$new', '$args' );