Commit | Line | Data |
---|---|---|
40aef9d6 | 1 | package InheritanceParent; |
2 | use warnings; | |
3 | use strict; | |
4 | ||
5 | sub foo { 23 } | |
6 | ||
7 | use namespace::clean; | |
8 | ||
9 | sub bar { foo() } | |
10 | ||
11 | package Inheritance; | |
12 | use warnings; | |
13 | use strict; | |
14 | ||
15 | use base 'InheritanceParent'; | |
16 | ||
17 | sub baz { shift->bar } | |
18 | ||
19 | use namespace::clean; | |
20 | ||
21 | sub qux { baz(shift) } | |
22 | ||
23 | 1; |