Added docs to Catalyst::Exception

diff --git a/lib/Catalyst/Engine/HTTP/Daemon.pm b/lib/Catalyst/Engine/HTTP/Daemon.pm
index aeaeea5..00daf22 100644 (file)
--- a/lib/Catalyst/Engine/HTTP/Daemon.pm
+++ b/lib/Catalyst/Engine/HTTP/Daemon.pm
@@ -98,7 +98,7 @@ sub run {
     unless ( defined $daemon ) {
 
         Catalyst::Exception->throw(
-            message =>  qq/Failed to create daemon. Reason: '$!'/
+            message => qq/Failed to create daemon. Reason: '$!'/
         );
     }
 

diff --git a/lib/Catalyst/Exception.pm b/lib/Catalyst/Exception.pm
index fbb75e4..ade1a46 100644 (file)
--- a/lib/Catalyst/Exception.pm
+++ b/lib/Catalyst/Exception.pm
@@ -1,11 +1,12 @@
 package Catalyst::Exception;
 
-BEGIN { 
-    push( @ISA, $CATALYST_EXCEPTION_CLASS || 'Catalyst::Exception::Base' );
-}
-
 use strict;
 use vars qw[@ISA $CATALYST_EXCEPTION_CLASS];
+use UNIVERSAL::require;
+
+BEGIN {
+    push( @ISA, $CATALYST_EXCEPTION_CLASS || 'Catalyst::Exception::Base' );
+}
 
 package Catalyst::Exception::Base;
 
@@ -30,7 +31,11 @@ This is the Catalyst Exception class.
 
 =over 4
 
-=item throw($message)
+=item throw( $message )
+
+=item throw( message => $message )
+
+=item throw( error => $error )
 
 Throws a fatal exception.