X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FTypes%2FWrapper.pm;h=b57899fcf0a9d34284c1029566733d68d5608701;hb=cec62c799d89f62bf99abfd855c9fde397d7409b;hp=86d03736afbd092acdfa2c82fa695b0c3687cfcf;hpb=9448c224b7cad34540c1d3bae61d77bd42f84753;p=gitmo%2FMooseX-Types.git diff --git a/lib/MooseX/Types/Wrapper.pm b/lib/MooseX/Types/Wrapper.pm index 86d0373..b57899f 100644 --- a/lib/MooseX/Types/Wrapper.pm +++ b/lib/MooseX/Types/Wrapper.pm @@ -5,9 +5,10 @@ MooseX::Types::Wrapper - Wrap exports from a library =cut package MooseX::Types::Wrapper; +our $VERSION = "0.21"; use Moose; -use Carp qw( croak ); +use Carp::Clan qw( ^MooseX::Types ); use Class::MOP; use namespace::clean -except => [qw( meta )]; @@ -37,10 +38,10 @@ sub import { = ($l eq 'Moose' ? 'MooseX::Types::Moose' : $l ); Class::MOP::load_class($library_class); - $library_class->import( @{ $libraries{ $l } }, { + $library_class->import({ -into => scalar(caller), -wrapper => $class, - }); + }, @{ $libraries{ $l } }); } return 1; } @@ -51,10 +52,9 @@ sub import { L -=head1 AUTHOR AND COPYRIGHT +=head1 AUTHOR -Robert 'phaylon' Sedlacek Crs@474.atE>, with many thanks to -the C<#moose> cabal on C. +See L. =head1 LICENSE