expanded tests for MSM to include all modifiers

now checks: before, after, around, override, and augment
also found a failing case for requiring subname, so added that to MSM as well

lib/Method/Signatures/Modifiers.pm

@@ -3,6 +3,8 @@ package Method::Signatures::Modifiers;
 use strict;
 use warnings;
 
+use Sub::Name;
+
 use constant BASE => 'Method::Signatures';
 use base BASE;
 
@@ -109,7 +111,8 @@ sub code_for
                 unless $class->can($name);
 
         no strict 'refs';
-        $meta->$add($name => shift);
+        my $code = subname "${class}::$name" => shift;
+        $meta->$add($name => $code);
     };
 
     return $code;

t/lib/MS_MXD_Replace.pm

@@ -4,14 +4,34 @@ use Method::Signatures::Modifiers;
 
 class Foo
 {
-    method foo (Num $num) {}
+    method test_before   (Num $num) {}
+    method test_around   (Num $num) {}
+    method test_after    (Num $num) {}
+    method test_override (Num $num) {}
+    method test_augment  (Num $num) { inner($num); }
 }
 
+# Obviously, it's not a very good idea to change the parameter types for before, after, or augment
+# modifiers.  (Changing the parameter type for around is okay, and changing it for override is more
+# of an academic/philosophical point.)  However, doing this allows us to test that MXMS is being
+# replaced by MSM by looking at the error messages.
 class Foo::Bar extends Foo
 {
-    around foo (Int $num) {
+    before test_before (Int $num) {}
+
+    around test_around (Int $num)
+    {
         $self->$orig($num / 2);
     }
+
+    after test_after (Int $num) {}
+
+    after test_override (Int $num)
+    {
+        return super;
+    }
+
+    augment test_augment (Int $num) {}
 }
 
 

t/mxd-replace.t

@@ -16,8 +16,14 @@ SKIP:
     my $foo = Foo->new;
     my $foobar = Foo::Bar->new;
 
-    throws_ok { $foo->foo('bmoogle') } badval_error($foo, num => Num => 'bmoogle' => 'foo'), 'MXD using MS for method';
-    throws_ok { $foobar->foo(.5) } badval_error($foobar, num => Int => .5 => 'foo'), 'MXD using MS for around';
+    foreach ( qw< before after around override augment > )
+    {
+        my $method = "test_$_";
+        throws_ok { $foo->$method('bmoogle') } badval_error($foo, num => Num => 'bmoogle' => $method),
+                "MXD using MS for method ($_)";
+        throws_ok { $foobar->$method(.5) } badval_error($foobar, num => Int => .5 => $method),
+                "MXD using MSM for modifier ($_)";
+    }
 
 }