Help for this page

Select Code to Download

Select or download this

BEGIN{
    sub Exception::Class::Base::errorcode{
        my %def = shift->_defaults;
...
    warn $e->error, "\n";
    warn $e->errorcode , "\n";
}