home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 June / PCWorld_2005-06_cd.bin / software / vyzkuste / firewally / firewally.exe / framework-2.3.exe / demo_rawdata.pl < prev    next >
Perl Script  |  2003-11-07  |  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.