11 after foo => sub { $FooRole++ };
22 is($FooRole, 1, "modifier called");
28 after ['foo', 'bar'] => sub { $BarRole++ };
40 is($BarRole, 1, "modifier called");
42 is($BarRole, 2, "modifier called");
48 after 'foo', 'bar' => sub { $BazRole++ };
60 is($BazRole, 1, "modifier called");
62 is($BazRole, 2, "modifier called");
68 { our $TODO; local $TODO = "can't handle regexes yet";
70 after qr/foo|bar/ => sub { $QuuxRole++ }
83 { local $TODO = "can't handle regexes yet";
85 is($QuuxRole, 1, "modifier called");
87 is($QuuxRole, 2, "modifier called");