projects
/
OpenSPARC-T2-DV
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
c0754f06a9baf810d0676648e6f91aebb732cc90
[OpenSPARC-T2-DV]
/
tools
/
perl-5.8.0
/
lib
/
5.8.0
/
Attribute
/
Handlers
/
demo
/
demo_rawdata.pl
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
);