home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 December / PCpro_2006_12.ISO / ossdvd / server / Perl2 / lib / Attribute / Handlers / demo / demo_rawdata.pl < prev    next >
Encoding:
Perl Script  |  2002-06-19  |  295 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.