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