X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FTypes%2FWrapper.pm;h=60a8ebd8f884a9e4dca6e271363d66b3580c5d03;hb=e9dc30af81ed775a6ac0a0f0c1daad021e5569f6;hp=f803fcc2c21326433c5ed3c71b8235affcb445d2;hpb=6a9158d85ae17b00a0413201d5ce88fca05c336d;p=gitmo%2FMooseX-Types.git diff --git a/lib/MooseX/Types/Wrapper.pm b/lib/MooseX/Types/Wrapper.pm index f803fcc..60a8ebd 100644 --- a/lib/MooseX/Types/Wrapper.pm +++ b/lib/MooseX/Types/Wrapper.pm @@ -1,11 +1,7 @@ -=head1 NAME - -MooseX::Types::Wrapper - Wrap exports from a library +package MooseX::Types::Wrapper; -=cut +#ABSTRACT: Wrap exports from a library -package MooseX::Types::Wrapper; -our $VERSION = "0.23"; use Moose; use Carp::Clan qw( ^MooseX::Types ); @@ -34,11 +30,11 @@ sub import { croak qq($class expects an array reference as import spec) unless ref $libraries{ $l } eq 'ARRAY'; - my $library_class + my $library_class = ($l eq 'Moose' ? 'MooseX::Types::Moose' : $l ); Class::MOP::load_class($library_class); - $library_class->import({ + $library_class->import({ -into => scalar(caller), -wrapper => $class, }, @{ $libraries{ $l } }); @@ -52,10 +48,6 @@ sub import { L -=head1 AUTHOR - -See L. - =head1 LICENSE This program is free software; you can redistribute it and/or modify