allow smart matching exceptions to class names
This commit is contained in:
parent
a68e6c38ca
commit
29c01ffad7
1 changed files with 6 additions and 7 deletions
|
|
@ -286,13 +286,12 @@ use Exception::Class (
|
|||
},
|
||||
);
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
{
|
||||
package WebGUI::Error;
|
||||
use overload '~~' => sub {
|
||||
return $_[0]->isa($_[1]);
|
||||
};
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue