From 29c01ffad7211f227bf29878c82d318f905b7a3a Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Mon, 17 May 2010 20:30:59 -0500
Subject: [PATCH] allow smart matching exceptions to class names

---
 lib/WebGUI/Exception.pm | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/lib/WebGUI/Exception.pm b/lib/WebGUI/Exception.pm
index 73dd2504c..0fb390cf6 100644
--- a/lib/WebGUI/Exception.pm
+++ b/lib/WebGUI/Exception.pm
@@ -286,13 +286,12 @@ use Exception::Class (
     },
 );
 
-
-
-
-
-
-
-
+{
+    package WebGUI::Error;
+    use overload '~~' => sub {
+        return $_[0]->isa($_[1]);
+    };
+}
 
 1;