home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _c9d3e1a610d519198124876db1a78156 < prev    next >
Text File  |  2004-06-01  |  295b  |  13 lines
  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);
  13.