Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / 5.8.0 / Attribute / Handlers / demo / demo_chain.pl

#! /usr/local/bin/perl -w

use Attribute::Handlers;

sub Prefix : ATTR {
 my ($glob, $sub) = @_[1,2];
 no warnings 'redefine';
 *$glob = sub {
                print "This happens first\n";
                $sub->(@_);
              };
}

sub Postfix : ATTR {
 my ($glob, $sub) = @_[1,2];
 no warnings 'redefine';
 *$glob = sub {
                $sub->(@_);
                print "This happens last\n";
              };
}

sub test : Postfix Prefix {
 print "Hello World\n";
}

test();