6 my ($super_called, $sub_called, $new_super_called) = (0, 0, 0);
11 sub foo { $super_called++ }
26 is($super_called, 1, "super called");
27 is($new_super_called, 0, "new super not called");
28 is($sub_called, 1, "sub called");
30 ($super_called, $sub_called, $new_super_called) = (0, 0, 0);
32 Foo->meta->add_method(foo => sub {
37 { local $TODO = "super doesn't get replaced";
38 is($super_called, 0, "super not called");
39 is($new_super_called, 1, "new super called");
41 is($sub_called, 1, "sub called");