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;
=head1 METHODS
-=over 4
+=head2 throw( $message )
-=item throw($message)
+=head2 throw( message => $message )
+
+=head2 throw( error => $error )
Throws a fatal exception.
Carp::croak($message);
}
-=back
-
=head1 AUTHOR
Sebastian Riedel, C<sri@cpan.org>