home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _a453856a422973fc3aeec72bb6c5e162 < prev    next >
Text File  |  2004-06-01  |  461b  |  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.