allow smart matching exceptions to class names

This commit is contained in:
Graham Knop 2010-05-17 20:30:59 -05:00
parent a68e6c38ca
commit 29c01ffad7

View file

@ -286,13 +286,12 @@ use Exception::Class (
},
);
{
package WebGUI::Error;
use overload '~~' => sub {
return $_[0]->isa($_[1]);
};
}
1;