Sign in
android
/
toolchain
/
perl
/
85598a3a597441edb4af308243cc9ff5f9666330
/
.
/
perl-5.16.2
/
dist
/
Attribute-Handlers
/
demo
/
demo3.pl
blob: 6760fc08babf4b4e9d73ce32fc18302ced671a7a [
file
] [
log
] [
blame
]
package
main
;
use
MyClass
;
my
MyClass
$x
:
Good
:
Bad
(
1
**
1
-
1
)
:
Omni
(
vorous
);
package
SomeOtherClass
;
use
base
MyClass
;
sub
tent
{
'acle'
}
sub
w
:
Ugly
(
sister
)
:
Omni
(
'po'
,
tent
())
{}
my
@y
:
Good
:
Omni
(
s
/
cie
/
nt
/);
my
%
y
:
Good
(
q
/
bye
)
:
Omni
(
q
/
bus
/);