From d0de54416417cee0f4dfad6b3469bc76551f8f52 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Tue, 24 Nov 2009 11:48:23 -0600
Subject: [PATCH] better messages for exceptions

---
 lib/WebGUI/Exception.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/lib/WebGUI/Exception.pm b/lib/WebGUI/Exception.pm
index 3d4ac9872..54bef4c91 100644
--- a/lib/WebGUI/Exception.pm
+++ b/lib/WebGUI/Exception.pm
@@ -60,6 +60,15 @@ use Exception::Class (
         },
 );
 
+sub WebGUI::Error::full_message {
+    my $self = shift;
+    my $message = $self->message ? $self->message : $self->description;
+    my @fields = map { defined $self->$_ ? ($_ . ': ' . $self->$_) : () } $self->Fields;
+    if (@fields) {
+        $message .= ' (' . join( q{, }, @fields ) . ')';
+    }
+    return $message;
+}
 
 =head1 NAME