1package UNIVERSAL;
2use Attribute::Handlers;
3
4sub Cooked : ATTR(SCALAR) { print "@{$_[4]}\n" }
5sub PostRaw : ATTR(SCALAR,RAWDATA) { print $_[4], "\n" }
6sub PreRaw : ATTR(SCALAR,RAWDATA) { print $_[4], "\n" }
7
8package main;
9
10my $x : Cooked(1..5);
11my $y : PreRaw(1..5);
12my $z : PostRaw(1..5);
13