Cross Reference: demo_rawdata.pl
xref
: /
osnet-11
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
lib
/
Attribute
/
Handlers
/
demo
/
demo_rawdata.pl
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
package
UNIVERSAL
;
use
Attribute
::
Handlers
;
sub
Cooked
:
ATTR
(
SCALAR
) {
print
pop
,
"\n"
}
sub
PostRaw
:
ATTR
(
SCALAR
,
RAWDATA
) {
print
pop
,
"\n"
}
sub
PreRaw
:
ATTR
(
SCALAR
,
RAWDATA
) {
print
pop
,
"\n"
}
package
main
;
my
$x :
Cooked
(
1
..
5
);
my
$y :
PreRaw
(
1
..
5
);
my
$z :
PostRaw
(
1
..
5
);