Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
Admin	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
CDBICompat	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
ClassResolver	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
InflateColumn	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Manual	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Optional	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
PK	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Relationship	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
ResultClass	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
ResultSet	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
ResultSource	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
ResultSourceProxy	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
SQLAHacks	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
SQLMaker	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Schema	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Serialize	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Storage	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
AccessorGroup.pm	1.33 KB	-rw-rw-rw-	2020-03-29 22:33
Admin.pm	11.78 KB	-rw-rw-rw-	2020-03-29 22:33
CDBICompat.pm	4.49 KB	-rw-rw-rw-	2020-03-29 22:33
Carp.pm	4.98 KB	-rw-rw-rw-	2020-03-29 22:33
Componentised.pm	2.2 KB	-rw-rw-rw-	2020-03-29 22:33
Core.pm	1.34 KB	-rw-rw-rw-	2018-04-30 13:43
Cursor.pm	1.94 KB	-rw-rw-rw-	2018-04-30 13:43
DB.pm	5.9 KB	-rw-rw-rw-	2020-03-29 22:33
Exception.pm	2.3 KB	-rw-rw-rw-	2020-03-29 22:33
FilterColumn.pm	7.77 KB	-rw-rw-rw-	2020-03-29 22:33
FilterColumn.pod	4.17 KB	-rw-rw-rw-	2020-06-17 00:12
InflateColumn.pm	7.02 KB	-rw-rw-rw-	2020-03-29 22:33
InflateColumn.pod	5.55 KB	-rw-rw-rw-	2020-06-17 00:12
Manual.pod	1.74 KB	-rw-rw-rw-	2018-04-30 13:43
Ordered.pm	26.18 KB	-rw-rw-rw-	2020-03-29 22:33
PK.pm	3.3 KB	-rw-rw-rw-	2020-03-29 22:33
PK.pod	2.96 KB	-rw-rw-rw-	2020-06-17 00:12
Relationship.pm	21.54 KB	-rw-rw-rw-	2018-04-30 13:43
ResultSet.pm	140.76 KB	-rw-rw-rw-	2020-06-13 20:33
ResultSetColumn.pm	10.62 KB	-rw-rw-rw-	2020-03-29 22:33
ResultSetManager.pm	3.25 KB	-rw-rw-rw-	2020-03-29 22:33
ResultSetProxy.pm	997 B	-rw-rw-rw-	2016-08-24 09:05
ResultSource.pm	66.33 KB	-rw-rw-rw-	2020-06-13 20:33
ResultSourceHandle.pm	3.74 KB	-rw-rw-rw-	2020-03-29 22:33
ResultSourceProxy.pm	1.88 KB	-rw-rw-rw-	2020-03-29 22:33
Row.pm	44.7 KB	-rw-rw-rw-	2020-06-13 20:33
SQLAHacks.pm	120 B	-rw-rw-rw-	2016-08-24 09:05
SQLMaker.pm	6.35 KB	-rw-rw-rw-	2020-03-29 22:33
Schema.pm	42.39 KB	-rw-rw-rw-	2020-03-29 22:33
StartupCheck.pm	1.48 KB	-rw-rw-rw-	2020-03-29 22:33
Storage.pm	15.52 KB	-rw-rw-rw-	2020-03-29 22:33
UTF8Columns.pm	5.18 KB	-rw-rw-rw-	2020-03-29 22:33
_Util.pm	10.77 KB	-rw-rw-rw-	2020-03-29 22:33

Rename

package DBIx::Class::Exception;

use strict;
use warnings;

# load Carp early to prevent tickling of the ::Internal stash being
# interpreted as "Carp is already loaded" by some braindead loader
use Carp ();
$Carp::Internal{ (__PACKAGE__) }++;

use DBIx::Class::Carp ();

use overload
    '""' => sub { shift->{msg} },
    fallback => 1;

=head1 NAME

DBIx::Class::Exception - Exception objects for DBIx::Class

=head1 DESCRIPTION

Exception objects of this class are used internally by
the default error handling of L<DBIx::Class::Schema/throw_exception>
and derivatives.

These objects stringify to the contained error message, and use
overload fallback to give natural boolean/numeric values.

=head1 METHODS

=head2 throw

=over 4

=item Arguments: $exception_scalar, $stacktrace

=back

This is meant for internal use by L<DBIx::Class>'s C<throw_exception>
code, and shouldn't be used directly elsewhere.

Expects a scalar exception message. The optional boolean C<$stacktrace>
causes it to output a full trace similar to L<confess|Carp/DESCRIPTION>.

DBIx::Class::Exception->throw('Foo');
  try { ... } catch { DBIx::Class::Exception->throw(shift) }

=cut

sub throw {
    my ($class, $msg, $stacktrace) = @_;

# Don't re-encapsulate exception objects of any kind
    die $msg if ref($msg);

# all exceptions include a caller
    $msg =~ s/\n$//;

if(!$stacktrace) {
        # skip all frames that match the original caller, or any of
        # the dbic-wide classdata patterns
        my ($ln, $calling) = DBIx::Class::Carp::__find_caller(
          '^' . caller() . '$',
          'DBIx::Class',
        );

$msg = "${calling}${msg} ${ln}\n";
    }
    else {
        $msg = Carp::longmess($msg);
    }

my $self = { msg => $msg };
    bless $self => $class;

die $self;
}

=head2 rethrow

This method provides some syntactic sugar in order to
re-throw exceptions.

=cut

sub rethrow {
    die shift;
}

=head1 FURTHER QUESTIONS?

Check the list of L<additional DBIC resources|DBIx::Class/GETTING HELP/SUPPORT>.

=head1 COPYRIGHT AND LICENSE

This module is free software L<copyright|DBIx::Class/COPYRIGHT AND LICENSE>
by the L<DBIx::Class (DBIC) authors|DBIx::Class/AUTHORS>. You can
redistribute it and/or modify it under the same terms as the
L<DBIx::Class library|DBIx::Class/COPYRIGHT AND LICENSE>.

=cut