X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FTypes%2FWrapper.pm;h=4d08c22162a59872680c47635dae8f7fad4b532c;hb=3da38ef893627fa8efeecd85c69ffd1ff4ddb4e6;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..4d08c22 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.24"; 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