Commit | Line | Data |
---|---|---|
04070b92 | 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); |