Select Code to Download

do_a();
my::Error::register(\&undo_a, ARGS);
...
}
do_b();
my::Error::register(\&undo_b, ARGS);

do_a();
register_err_handler(a => ARGS);
...
sub register_err_handler {
    my::Error::register( my::Plugin::ErrorHandler_->new(@_) );
}

package my::Plugin::ErrorHandler;

...
    my ($self) = @_;
    $dispatch{ $self->{handler} }->(@{ $self->{args} })
}

do_a();
my::Error::register(undo_a => ARGS);
...
}
do_b();
my::Error::register(undo_b => ARGS);