From: Dave Rolsky Date: Wed, 13 Apr 2011 19:09:42 +0000 (-0500) Subject: Style tweak X-Git-Tag: v0.15~6 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7e1ef712f7bd41f400fa9d7cc565487fa2fff57e;p=gitmo%2FMooseX-StrictConstructor.git Style tweak --- diff --git a/lib/MooseX/StrictConstructor/Trait/Class.pm b/lib/MooseX/StrictConstructor/Trait/Class.pm index 776953b..f4c106a 100644 --- a/lib/MooseX/StrictConstructor/Trait/Class.pm +++ b/lib/MooseX/StrictConstructor/Trait/Class.pm @@ -33,7 +33,9 @@ around '_inline_BUILDALL' => sub { # lose the role. after superclasses => sub { my $self = shift; - return if not @_; + + return unless @_; + Moose::Util::MetaRole::apply_base_class_roles( for => $self->name, roles => ['MooseX::StrictConstructor::Role::Object'],