lib/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);