X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-StrictConstructor.git;a=blobdiff_plain;f=lib%2FMooseX%2FStrictConstructor.pm;fp=lib%2FMooseX%2FStrictConstructor.pm;h=b45c3f06f424ace1dd28a88df3ff070e88314023;hp=030230ff97dd0b56f23d7a3061fd45ee03f92b57;hb=bb64c0458ed377f9a5a7f4d4071dee8cf0821312;hpb=2c89d023a1ddcafb64035d89061e12e791ec1938 diff --git a/lib/MooseX/StrictConstructor.pm b/lib/MooseX/StrictConstructor.pm index 030230f..b45c3f0 100644 --- a/lib/MooseX/StrictConstructor.pm +++ b/lib/MooseX/StrictConstructor.pm @@ -7,19 +7,16 @@ use Moose 0.94 (); use Moose::Exporter; use Moose::Util::MetaRole; -{ - 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']; - } - - Moose::Exporter->setup_import_methods( - class_metaroles => \%class_meta, - ); -} +use MooseX::StrictConstructor::Trait::Class; +use MooseX::StrictConstructor::Trait::Method::Constructor;; + +Moose::Exporter->setup_import_methods( + class_metaroles => { + class => ['MooseX::StrictConstructor::Trait::Class'], + constructor => + ['MooseX::StrictConstructor::Trait::Method::Constructor'], + }, +); 1;