blob: c0754f06a9baf810d0676648e6f91aebb732cc90 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
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);
|
