Commit | Line | Data |
---|---|---|
42e595b0 | 1 | #!perl |
2 | use warnings FATAL => 'all'; | |
3 | no warnings qw(once redefine); | |
4 | use strict; | |
5 | ||
6 | use Test::More tests => 2; | |
7 | ||
8 | use Function::Parameters { | |
9 | method => { defaults => 'method_strict', runtime => 1 }, | |
10 | }; | |
11 | ||
12 | # See commit 978a498e17ec54b6f1fc65f3375a62a68f321f99 in perl | |
13 | ||
14 | method Y::b() { 'b' } | |
15 | *X::b = *Y::b; | |
16 | @Z::ISA = 'X'; | |
17 | is +Z->b, 'b'; | |
18 | ||
19 | method Y::b() { 'c' } | |
20 | is +Z->b, 'c'; |