1 package MooseX::TypeLibrary::Wrapper;
4 #use base 'MooseX::TypeLibrary';
11 extends 'MooseX::TypeLibrary';
14 my ($class, @args) = @_;
15 my %libraries = @args == 1 ? (Moose => $args[0]) : @args;
17 for my $l (keys %libraries) {
19 croak qq($class expects an array reference as import spec)
20 unless ref $libraries{ $l } eq 'ARRAY';
23 = ($l eq 'Moose' ? 'MooseX::TypeLibrary::Moose' : $l );
24 require Class::Inspector->filename($library_class)
25 unless Class::Inspector->loaded($library_class);
27 $library_class->import(
28 @{ $libraries{ $l } },
29 { -into => scalar(caller) }