projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Move Attribute::Handlers from lib to ext. The layout in ext is the same as the
[p5sagit/p5-mst-13.2.git]
/
ext
/
Attribute-Handlers
/
demo
/
demo_rawdata.pl
1
package UNIVERSAL;
2
use Attribute::Handlers;
3
4
sub Cooked : ATTR(SCALAR) { print pop, "\n" }
5
sub PostRaw : ATTR(SCALAR,RAWDATA) { print pop, "\n" }
6
sub PreRaw : ATTR(SCALAR,RAWDATA) { print pop, "\n" }
7
8
package main;
9
10
my $x : Cooked(1..5);
11
my $y : PreRaw(1..5);
12
my $z : PostRaw(1..5);