X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FUndefTolerant.pm;h=f76117e664bda7aaeca06d49e1f6fc6bcd66c3f8;hb=d6ce838b149668ac59c654aa996c3915c311507c;hp=f25b684a91caa5af9b30883cfe9ec10172c6cab5;hpb=94f9d1987e90ff757ed62acab59b092a79609da1;p=gitmo%2FMooseX-UndefTolerant.git diff --git a/lib/MooseX/UndefTolerant.pm b/lib/MooseX/UndefTolerant.pm index f25b684..f76117e 100644 --- a/lib/MooseX/UndefTolerant.pm +++ b/lib/MooseX/UndefTolerant.pm @@ -4,15 +4,22 @@ use Moose qw(); use Moose::Exporter; use MooseX::UndefTolerant::Attribute; +use MooseX::UndefTolerant::Class; use MooseX::UndefTolerant::Constructor; our $VERSION = '0.07'; +my %metaroles = ( attribute => [ 'MooseX::UndefTolerant::Attribute' ] ); +if ( $Moose::VERSION < 1.9900 ) { + $metaroles{constructor} = [ 'MooseX::UndefTolerant::Constructor' ]; +} +else { + $metaroles{class} = [ 'MooseX::UndefTolerant::Class' ]; +} + + Moose::Exporter->setup_import_methods( - class_metaroles => { - attribute => [ 'MooseX::UndefTolerant::Attribute' ], - constructor => [ 'MooseX::UndefTolerant::Constructor' ], - } + class_metaroles => \%metaroles, ); 1;