Profile of Perl/Critic/Exception/Fatal.pm

Filename	/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/Perl/Critic/Exception/Fatal.pm
Statements	Executed 10 statements in 202µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	15µs	15µs	Perl::Critic::Exception::Fatal::BEGIN@10
1	1	1	8µs	615µs	Perl::Critic::Exception::Fatal::BEGIN@18
1	1	1	7µs	12µs	Perl::Critic::Exception::Fatal::BEGIN@12
1	1	1	7µs	18µs	Perl::Critic::Exception::Fatal::BEGIN@11
0	0	0	0s	0s	Perl::Critic::Exception::Fatal::full_message
0	0	0	0s	0s	Perl::Critic::Exception::Fatal::::newPerl::Critic::Exception::Fatal::new

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					##############################################################################
2					# $URL$
3					# $Date$
4					# $Author$
5					# $Revision$
6					##############################################################################
7
8					package Perl::Critic::Exception::Fatal;
9
10	2	38µs	1	15µs	# spent 15µs within Perl::Critic::Exception::Fatal::BEGIN@10 which was called: # once (15µs+0s) by base::import at line 10 use 5.006001; # spent 15µs making 1 call to Perl::Critic::Exception::Fatal::BEGIN@10
11	2	22µs	2	29µs	# spent 18µs (7+11) within Perl::Critic::Exception::Fatal::BEGIN@11 which was called: # once (7µs+11µs) by base::import at line 11 use strict; # spent 18µs making 1 call to Perl::Critic::Exception::Fatal::BEGIN@11 # spent 11µs making 1 call to strict::import
12	2	36µs	2	16µs	# spent 12µs (7+4) within Perl::Critic::Exception::Fatal::BEGIN@12 which was called: # once (7µs+4µs) by base::import at line 12 use warnings; # spent 12µs making 1 call to Perl::Critic::Exception::Fatal::BEGIN@12 # spent 4µs making 1 call to warnings::import
13
14	1	300ns			our $VERSION = '1.121';
15
16					#-----------------------------------------------------------------------------
17
18					# spent 615µs (8+607) within Perl::Critic::Exception::Fatal::BEGIN@18 which was called: # once (8µs+607µs) by base::import at line 24 use Exception::Class (
19	1	300ns			'Perl::Critic::Exception::Fatal' => {
20					isa => 'Perl::Critic::Exception',
21					description =>
22					'A problem that should cause Perl::Critic to stop running.',
23					},
24	1	103µs	2	615µs	); # spent 615µs making 1 call to Perl::Critic::Exception::Fatal::BEGIN@18 # spent 607µs making 1 call to Exception::Class::import, recursion: max depth 1, sum of overlapping time 607µs
25
26					#-----------------------------------------------------------------------------
27
28					sub new {
29					my ($class, @args) = @_;
30					my $self = $class->SUPER::new(@args);
31
32					$self->show_trace(1);
33
34					return $self;
35					}
36
37					#-----------------------------------------------------------------------------
38
39					sub full_message {
40					my ( $self ) = @_;
41
42					return
43					$self->short_class_name()
44					. q{: }
45					. $self->description()
46					. "\n\n"
47					. $self->message()
48					. "\n\n"
49					. gmtime $self->time()
50					. "\n\n";
51					}
52
53
54	1	2µs			1;
55
56					__END__