Profile of DBIx/Class/Exception.pm

Filename	/usr/share/perl5/DBIx/Class/Exception.pm
Statements	Executed 0 statements in 0s

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	15µs	43µs	DBIx::Class::Exception::::BEGIN@14DBIx::Class::Exception::BEGIN@14
1	1	1	14µs	20µs	DBIx::Class::Exception::::BEGIN@3DBIx::Class::Exception::BEGIN@3
1	1	1	8µs	11µs	DBIx::Class::Exception::::BEGIN@4DBIx::Class::Exception::BEGIN@4
1	1	1	4µs	4µs	DBIx::Class::Exception::::BEGIN@11DBIx::Class::Exception::BEGIN@11
1	1	1	3µs	3µs	DBIx::Class::Exception::::BEGIN@8DBIx::Class::Exception::BEGIN@8
0	0	0	0s	0s	DBIx::Class::Exception::::__ANON__[:14]DBIx::Class::Exception::__ANON__[:14]
0	0	0	0s	0s	DBIx::Class::Exception::::rethrowDBIx::Class::Exception::rethrow
0	0	0	0s	0s	DBIx::Class::Exception::::throwDBIx::Class::Exception::throw

Call graph for these subroutines as a Graphviz dot language file.

Line	Calls	Time in subs	Code
1			package DBIx::Class::Exception;
2
3	2	27µs	# spent 20µs (14+7) within DBIx::Class::Exception::BEGIN@3 which was called: # once (14µs+7µs) by DBIx::Class::BEGIN@25 at line 3 use strict; # spent 20µs making 1 call to DBIx::Class::Exception::BEGIN@3 # spent 7µs making 1 call to strict::import
4	2	14µs	# spent 11µs (8+3) within DBIx::Class::Exception::BEGIN@4 which was called: # once (8µs+3µs) by DBIx::Class::BEGIN@25 at line 4 use warnings; # spent 11µs making 1 call to DBIx::Class::Exception::BEGIN@4 # spent 4µs making 1 call to warnings::import
5
6			# load Carp early to prevent tickling of the ::Internal stash being
7			# interpreted as "Carp is already loaded" by some braindead loader
8	1	3µs	# spent 3µs within DBIx::Class::Exception::BEGIN@8 which was called: # once (3µs+0s) by DBIx::Class::BEGIN@25 at line 8 use Carp (); # spent 3µs making 1 call to DBIx::Class::Exception::BEGIN@8
9			$Carp::Internal{ (__PACKAGE__) }++;
10
11	1	4µs	# spent 4µs within DBIx::Class::Exception::BEGIN@11 which was called: # once (4µs+0s) by DBIx::Class::BEGIN@25 at line 11 use DBIx::Class::Carp (); # spent 4µs making 1 call to DBIx::Class::Exception::BEGIN@11
12
13			use overload
14			# spent 43µs (15+29) within DBIx::Class::Exception::BEGIN@14 which was called: # once (15µs+29µs) by DBIx::Class::BEGIN@25 at line 15 '""' => sub { shift->{msg} },
15	2	72µs	fallback => 1; # spent 43µs making 1 call to DBIx::Class::Exception::BEGIN@14 # spent 29µs making 1 call to overload::import
16
17			=head1 NAME
18
19			DBIx::Class::Exception - Exception objects for DBIx::Class
20
21			=head1 DESCRIPTION
22
23			Exception objects of this class are used internally by
24			the default error handling of L<DBIx::Class::Schema/throw_exception>
25			and derivatives.
26
27			These objects stringify to the contained error message, and use
28			overload fallback to give natural boolean/numeric values.
29
30			=head1 METHODS
31
32			=head2 throw
33
34			=over 4
35
36			=item Arguments: $exception_scalar, $stacktrace
37
38			=back
39
40			This is meant for internal use by L<DBIx::Class>'s C<throw_exception>
41			code, and shouldn't be used directly elsewhere.
42
43			Expects a scalar exception message. The optional boolean C<$stacktrace>
44			causes it to output a full trace similar to L<confess\|Carp/DESCRIPTION>.
45
46			DBIx::Class::Exception->throw('Foo');
47			try { ... } catch { DBIx::Class::Exception->throw(shift) }
48
49			=cut
50
51			sub throw {
52			my ($class, $msg, $stacktrace) = @_;
53
54			# Don't re-encapsulate exception objects of any kind
55			die $msg if ref($msg);
56
57			# all exceptions include a caller
58			$msg =~ s/\n$//;
59
60			if(!$stacktrace) {
61			# skip all frames that match the original caller, or any of
62			# the dbic-wide classdata patterns
63			my ($ln, $calling) = DBIx::Class::Carp::__find_caller(
64			'^' . caller() . '$',
65			'DBIx::Class',
66			);
67
68			$msg = "${calling}${msg} ${ln}\n";
69			}
70			else {
71			$msg = Carp::longmess($msg);
72			}
73
74			my $self = { msg => $msg };
75			bless $self => $class;
76
77			die $self;
78			}
79
80			=head2 rethrow
81
82			This method provides some syntactic sugar in order to
83			re-throw exceptions.
84
85			=cut
86
87			sub rethrow {
88			die shift;
89			}
90
91			=head1 FURTHER QUESTIONS?
92
93			Check the list of L<additional DBIC resources\|DBIx::Class/GETTING HELP/SUPPORT>.
94
95			=head1 COPYRIGHT AND LICENSE
96
97			This module is free software L<copyright\|DBIx::Class/COPYRIGHT AND LICENSE>
98			by the L<DBIx::Class (DBIC) authors\|DBIx::Class/AUTHORS>. You can
99			redistribute it and/or modify it under the same terms as the
100			L<DBIx::Class library\|DBIx::Class/COPYRIGHT AND LICENSE>.
101
102			=cut
103
104			1;