X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FTypes%2FCombine.pm;h=7202ec1d494addb60f36437df7eb47abd1fef48d;hb=1808a2aec36762b9ef97efad382d36023ad20500;hp=bb8d16605e79999999a33457392ca1cb28efe360;hpb=d34c8442b8e207ab0b6e296cb1c01e248d063baf;p=gitmo%2FMooseX-Types.git diff --git a/lib/MooseX/Types/Combine.pm b/lib/MooseX/Types/Combine.pm index bb8d166..7202ec1 100644 --- a/lib/MooseX/Types/Combine.pm +++ b/lib/MooseX/Types/Combine.pm @@ -84,6 +84,15 @@ sub provide_types_from { @$store; } +sub _check_type_lib { + my ($class, $lib) = @_; + + Class::MOP::load_class($lib); + + die "Cannot use $lib in a combined type library, it does not provide any types" + unless $lib->can('type_names'); +} + sub _provided_types { my ($class, %types) = @_; @@ -96,15 +105,6 @@ sub _provided_types { %$types; } -sub _check_type_lib { - my ($class, $lib) = @_; - - Class::MOP::load_class($lib); - - die "Cannot use $lib in a combined type library, it does not provide any types" - unless $lib->can('type_names'); -} - =head1 SEE ALSO L