Exception::Class
- It can create a "shorthand" sub for each class:
use Exception::Class
( 'SQLException' =>
{ fields => [ 'sql', 'bound_values' ],
alias => 'sql_error' }
);
sql_error error => 'bad sql', sql => $sql;
use Exception::Class
( 'SQLException' =>
{ fields => [ 'sql', 'bound_values' ],
alias => 'sql_error' }
);
sql_error error => 'bad sql', sql => $sql;