X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-StrictConstructor.git;a=blobdiff_plain;f=lib%2FMooseX%2FStrictConstructor.pm;h=aa81a45d191336c7b2c2637caee31f2b25715652;hp=40fa4bb21de897603cd3c2c8ea12845b5100c418;hb=f00a034fe06bd519d9f64f2f942d4ff402d0ae87;hpb=b98b8f867754f1c69f1cae8ac1b6fc0bb2544e3a diff --git a/lib/MooseX/StrictConstructor.pm b/lib/MooseX/StrictConstructor.pm index 40fa4bb..aa81a45 100644 --- a/lib/MooseX/StrictConstructor.pm +++ b/lib/MooseX/StrictConstructor.pm @@ -7,20 +7,18 @@ use Moose 0.94 (); use Moose::Exporter; use Moose::Util::MetaRole; -{ - my %class_meta = ( class => ['MooseX::StrictConstructor::Trait::Class'] ); +use MooseX::StrictConstructor::Trait::Class; +use MooseX::StrictConstructor::Trait::Method::Constructor;; +my %metaroles = ( + class => ['MooseX::StrictConstructor::Trait::Class'], +); - if ( $Moose::VERSION < 1.9900 ) { - require MooseX::StrictConstructor::Trait::Method::Constructor; - $class_meta{constructor} - = ['MooseX::StrictConstructor::Trait::Method::Constructor']; - } +$metaroles{constructor} + = ['MooseX::StrictConstructor::Trait::Method::Constructor'] + if $Moose::VERSION >= 1.9900; - Moose::Exporter->setup_import_methods( - class_metaroles => \%class_meta, - ); -} +Moose::Exporter->setup_import_methods( class_metaroles => \%metaroles ); 1;