Help for this page

Select Code to Download


  1. or download this
    for my $method ('do_something','do_otherthing') {
    around $method => sub {
...
        $self->$orig(@_);
    };
}
  2. or download this
    {
    package Bar;
...
    $before=CODE(0x223d5e8)
    \&do_something=CODE(0x228ae92)
can=CODE(0x228ae92)