X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FStrictConstructor%2FTrait%2FClass.pm;h=579b6c25d81156b7fc9f68afdc7ec7545590d34d;hb=0dc0aea2e2ce6e27b488b6e6d304c5ab19649745;hp=f4c106a50b8ccdc83df940f33fc16a18ac000176;hpb=7e1ef712f7bd41f400fa9d7cc565487fa2fff57e;p=gitmo%2FMooseX-StrictConstructor.git

diff --git a/lib/MooseX/StrictConstructor/Trait/Class.pm b/lib/MooseX/StrictConstructor/Trait/Class.pm
index f4c106a..579b6c2 100644
--- a/lib/MooseX/StrictConstructor/Trait/Class.pm
+++ b/lib/MooseX/StrictConstructor/Trait/Class.pm
@@ -27,7 +27,7 @@ around '_inline_BUILDALL' => sub {
             'Moose->throw_error("Found unknown attribute(s) passed to the constructor: @bad");',
         '}',
     );
-};
+} if $Moose::VERSION >= 1.9900;
 
 # If the base class role is applied first, and then a superclass is added, we
 # lose the role.
@@ -37,7 +37,7 @@ after superclasses => sub {
     return unless @_;
 
     Moose::Util::MetaRole::apply_base_class_roles(
-        for   => $self->name,
+        for   => $self->name(),
         roles => ['MooseX::StrictConstructor::Role::Object'],
     );
 };