1N/A#! /usr/local/bin/perl -w
1N/A
1N/Ause Attribute::Handlers;
1N/A
1N/Asub Prefix : ATTR {
1N/A my ($glob, $sub) = @_[1,2];
1N/A no warnings 'redefine';
1N/A *$glob = sub {
1N/A print "This happens first\n";
1N/A $sub->(@_);
1N/A };
1N/A}
1N/A
1N/Asub Postfix : ATTR {
1N/A my ($glob, $sub) = @_[1,2];
1N/A no warnings 'redefine';
1N/A *$glob = sub {
1N/A $sub->(@_);
1N/A print "This happens last\n";
1N/A };
1N/A}
1N/A
1N/Asub test : Postfix Prefix {
1N/A print "Hello World\n";
1N/A}
1N/A
1N/Atest();