X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FStrictConstructor.pm;fp=lib%2FMooseX%2FStrictConstructor.pm;h=c68d27931d6a38d75e3633b89c53d1d1366d91cb;hb=0dc0aea2e2ce6e27b488b6e6d304c5ab19649745;hp=e7cfda2d5d812e8fab33b589589df867870747dd;hpb=43ee1f5b5267d15fe25b4292f7a49aed8359eca4;p=gitmo%2FMooseX-StrictConstructor.git diff --git a/lib/MooseX/StrictConstructor.pm b/lib/MooseX/StrictConstructor.pm index e7cfda2..c68d279 100644 --- a/lib/MooseX/StrictConstructor.pm +++ b/lib/MooseX/StrictConstructor.pm @@ -9,19 +9,13 @@ use Moose::Util::MetaRole; use MooseX::StrictConstructor::Role::Object; { - my %class_meta; + my %class_meta = ( class => ['MooseX::StrictConstructor::Trait::Class'] ); + if ( $Moose::VERSION < 1.9900 ) { require MooseX::StrictConstructor::Trait::Method::Constructor; - %class_meta = ( - constructor => [ - 'MooseX::StrictConstructor::Trait::Method::Constructor'] - ); - } - else { - require MooseX::StrictConstructor::Trait::Class; - %class_meta - = ( class => ['MooseX::StrictConstructor::Trait::Class'] ); + $class_meta{constructor} + = ['MooseX::StrictConstructor::Trait::Method::Constructor']; } Moose::Exporter->setup_import_methods(