home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / demo_phases.pl < prev    next >
Encoding:
Perl Script  |  2003-11-06  |  443 b   |  19 lines
  1. #! /usr/local/bin/perl -w
  2.  
  3. use Attribute::Handlers;
  4. use Data::Dumper 'Dumper';
  5.  
  6. sub UNIVERSAL::Beginner : ATTR(SCALAR,BEGIN,END)
  7.     { print STDERR "Beginner: ", Dumper \@_}
  8.  
  9. sub UNIVERSAL::Checker : ATTR(CHECK,SCALAR)
  10.     { print STDERR "Checker: ", Dumper \@_}
  11.  
  12. sub UNIVERSAL::Initer : ATTR(SCALAR,INIT)
  13.     { print STDERR "Initer: ", Dumper \@_}
  14.  
  15. package Other;
  16.  
  17. my $x :Initer(1) :Checker(2) :Beginner(3);
  18. my $y :Initer(4) :Checker(5) :Beginner(6);
  19.