config_sh.PL need to scan dist/ as well as cpan/ and ext/
[perl.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);