X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FTypes%2FWrapper.pm;h=a5955e8717f310173cfe798e7032e31550ad7955;hb=16ddefbf6d5e6918471483ebaad42b52fd560cea;hp=86d03736afbd092acdfa2c82fa695b0c3687cfcf;hpb=8cd6ad6c50e44e264bdaa33a68e80b6c58d9b325;p=gitmo%2FMooseX-Types.git diff --git a/lib/MooseX/Types/Wrapper.pm b/lib/MooseX/Types/Wrapper.pm index 86d0373..a5955e8 100644 --- a/lib/MooseX/Types/Wrapper.pm +++ b/lib/MooseX/Types/Wrapper.pm @@ -7,7 +7,7 @@ MooseX::Types::Wrapper - Wrap exports from a library package MooseX::Types::Wrapper; use Moose; -use Carp qw( croak ); +use Carp::Clan qw( ^MooseX::Types ); use Class::MOP; use namespace::clean -except => [qw( meta )]; @@ -37,10 +37,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; }