Searched defs:Good (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/Handlers/demo/
H A DMyClass.pm8 sub Good : ATTR(SCALAR) { subroutine
11 # Invoked for any scalar variable with a :Good attribute,
17 print "MyClass::Good:ATTR(SCALAR)(@_);\n";
28 sub Good : ATTR(ARRAY) { subroutine
29 # Invoked for any array variable with a :Good attribute,
33 print "MyClass::Good:ATTR(ARRAY)(@_);\n";
36 sub Good : ATTR(HASH) { subroutine
37 # Invoked for any hash variable with a :Good attribute,
41 print "MyClass::Good:ATTR(HASH)(@_);\n";

Completed in 22 milliseconds