wip!

rsrchboy · Jul 28, 2017 · 63ac948 · 63ac948
1 parent 4ce7710
commit 63ac948
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/lib/Test/Moose/More.pm b/lib/Test/Moose/More.pm
@@ -975,6 +975,16 @@ sub _validate_thing_guts {
     ### methods...
     do { has_method_ok($thing, $_) for @{$args{methods}} }
         if exists $args{methods};
+
+    METHOD_LOOP:
+    for my $method (@{Data::OptList::mkopt($args{method} || [])}) {
+
+        my ($name, $opts) = @$method;
+        has_method_ok($thing, $name);
+        validate_method($thing, $name, $opts)
+            if !!$opts;
+    }
+
     do { has_no_method_ok($thing, $_) for @{$args{no_methods}} }
         if exists $args{no_methods};