home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2005 March / PCWELT_3_2005.ISO / pcwsoft / framework-2.2.exe / demo_rawdata.pl < prev    next >
Encoding:
Perl Script  |  2003-11-07  |  283 b   |  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.