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_chain.pl < prev    next >
Perl Script  |  2003-11-07  |  497b  |  28 lines
  1. #! /usr/local/bin/perl -w
  2.  
  3. use Attribute::Handlers;
  4.  
  5. sub Prefix : ATTR {
  6.   my ($glob, $sub) = @_[1,2];
  7.   no warnings 'redefine';
  8.   *$glob = sub {
  9.                  print "This happens first\n";
  10.                  $sub->(@_);
  11.                };
  12. }
  13.  
  14. sub Postfix : ATTR {
  15.   my ($glob, $sub) = @_[1,2];
  16.   no warnings 'redefine';
  17.   *$glob = sub {
  18.                  $sub->(@_);
  19.                  print "This happens last\n";
  20.                };
  21. }
  22.  
  23. sub test : Postfix Prefix {
  24.   print "Hello World\n";
  25. }
  26.  
  27. test();
  28.