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_phases.pl < prev    next >
Perl Script  |  2003-11-07  |  443b  |  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.