home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 December (Special) / PCWorld_2005-12_Special_cd.bin / Bezpecnost / lsti / lsti.exe / framework-2.5.exe / demo_rawdata.pl < prev    next >
Perl Script  |  2005-01-27  |  283b  |  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.