| 1 | package main; |
| 2 | use MyClass; |
| 3 | |
| 4 | my MyClass $x :Good :Bad(1**1-1) :Omni(vorous); |
| 5 | |
| 6 | package SomeOtherClass; |
| 7 | use base MyClass; |
| 8 | |
| 9 | sub tent { 'acle' } |
| 10 | |
| 11 | sub w :Ugly(sister) :Omni('po',tent()) {} |
| 12 | |
| 13 | my @y :Good :Omni(s/cie/nt/); |
| 14 | |
| 15 | my %y :Good(q/bye) :Omni(q/bus/); |
| 16 | |