From: Dave Rolsky <autarch@urth.org>
Date: Mon, 8 Nov 2010 16:04:02 +0000 (-0600)
Subject: Make sub order match call order
X-Git-Tag: 0.25~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Types.git;a=commitdiff_plain;h=1808a2aec36762b9ef97efad382d36023ad20500

Make sub order match call order
---

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<MooseX::Types>