Perl 5 マスター Wiki

#!/usr/bin/perl 

use warnings;
use strict;
use Class::Method::Modifiers;

sub original { print "i am original\n"; };

before original => sub { print "i am before\n" };
after original => sub { print "i am after\n" };
around original => sub {
        my $orig = shift;
        print "i am around before\n";
        my $ret = $orig->(@_);
        print "i am around after\n";
};

original();

i am before
i am around before
i am original
i am around after
i am after

• Class::Method::Modifiers::Fast