[Bast-commits] r3487 - branches/DBIx-Class-current/lib/DBIx/Class

[blblack at dev.catalyst.perl.org]

Author: blblack
Date: 2007-06-11 18:22:08 +0100 (Mon, 11 Jun 2007)
New Revision: 3487

Modified:
   branches/DBIx-Class-current/lib/DBIx/Class/Schema.pm
Log:
add stacktrace option to modify the default behavior of throw_exception

Modified: branches/DBIx-Class-current/lib/DBIx/Class/Schema.pm
===================================================================
--- branches/DBIx-Class-current/lib/DBIx/Class/Schema.pm	2007-06-10 16:41:57 UTC (rev 3486)
+++ branches/DBIx-Class-current/lib/DBIx/Class/Schema.pm	2007-06-11 17:22:08 UTC (rev 3487)
@@ -15,6 +15,7 @@
 __PACKAGE__->mk_classdata('storage_type' => '::DBI');
 __PACKAGE__->mk_classdata('storage');
 __PACKAGE__->mk_classdata('exception_action');
+__PACKAGE__->mk_classdata('stacktrace' => 0);
 
 =head1 NAME
 
@@ -863,7 +864,7 @@
 
 If C<exception_action> is set for this class/object, L</throw_exception>
 will prefer to call this code reference with the exception as an argument,
-rather than its normal <croak> action.
+rather than its normal C<croak> or C<confess> action.
 
 Your subroutine should probably just wrap the error in the exception
 object/class of your choosing and rethrow.  If, against all sage advice,
@@ -885,6 +886,18 @@
    # suppress all exceptions, like a moron:
    $schema_obj->exception_action(sub { 1 });
 
+=head2 stacktrace
+
+=over4
+
+=item Arguments: boolean
+
+=back
+
+This alters the behavior of the default L</throw_exception> action.  It
+uses C<croak> if C<stacktrace> is false, or C<confess> if C<stacktrace>
+is true.  The default is false.
+
 =head2 throw_exception
 
 =over 4
@@ -895,13 +908,16 @@
 
 Throws an exception. Defaults to using L<Carp::Clan> to report errors from
 user's perspective.  See L</exception_action> for details on overriding
-this method's behavior.
+this method's behavior.  If L</stacktrace> is turned on, C<throw_exception>
+will use C<confess> instead of C<croak>.
 
 =cut
 
 sub throw_exception {
   my $self = shift;
-  croak @_ if !$self->exception_action || !$self->exception_action->(@_);
+  if(!$self->exception_action || !$self->exception_action->(@_)) {
+    $self->stacktrace ? confess @_ : croak @_;
+  }
 }
 
 =head2 deploy (EXPERIMENTAL)