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

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	15µs	15µs	Perl::Critic::Exception::::BEGIN@10Perl::Critic::Exception::BEGIN@10
1	1	1	8µs	15µs	Perl::Critic::Exception::::BEGIN@25Perl::Critic::Exception::BEGIN@25
1	1	1	8µs	177µs	Perl::Critic::Exception::::BEGIN@18Perl::Critic::Exception::BEGIN@18
1	1	1	8µs	11µs	Perl::Critic::Exception::::BEGIN@12Perl::Critic::Exception::BEGIN@12
1	1	1	6µs	17µs	Perl::Critic::Exception::::BEGIN@11Perl::Critic::Exception::BEGIN@11
0	0	0	0s	0s	Perl::Critic::Exception::::short_class_namePerl::Critic::Exception::short_class_name

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;
9
10	2	36µs	1	15µs	# spent 15µs within Perl::Critic::Exception::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::BEGIN@10
11	2	22µs	2	28µs	# spent 17µs (6+11) within Perl::Critic::Exception::BEGIN@11 which was called: # once (6µs+11µs) by base::import at line 11 use strict; # spent 17µs making 1 call to Perl::Critic::Exception::BEGIN@11 # spent 11µs making 1 call to strict::import
12	2	40µs	2	15µs	# spent 11µs (8+4) within Perl::Critic::Exception::BEGIN@12 which was called: # once (8µs+4µs) by base::import at line 12 use warnings; # spent 11µs making 1 call to Perl::Critic::Exception::BEGIN@12 # spent 4µs making 1 call to warnings::import
13
14	1	300ns			our $VERSION = '1.121';
15
16					#-----------------------------------------------------------------------------
17
18					# spent 177µs (8+169) within Perl::Critic::Exception::BEGIN@18 which was called: # once (8µs+169µs) by base::import at line 23 use Exception::Class (
19	1	300ns			'Perl::Critic::Exception' => {
20					isa => 'Exception::Class::Base',
21					description => 'A problem discovered by Perl::Critic.',
22					},
23	1	27µs	2	177µs	); # spent 177µs making 1 call to Perl::Critic::Exception::BEGIN@18 # spent 169µs making 1 call to Exception::Class::import, recursion: max depth 2, sum of overlapping time 169µs
24
25	2	50µs	2	22µs	# spent 15µs (8+7) within Perl::Critic::Exception::BEGIN@25 which was called: # once (8µs+7µs) by base::import at line 25 use Exporter 'import'; # spent 15µs making 1 call to Perl::Critic::Exception::BEGIN@25 # spent 7µs making 1 call to Exporter::import
26
27					#-----------------------------------------------------------------------------
28
29					sub short_class_name {
30					my ( $self ) = @_;
31
32					return substr ref $self, (length 'Perl::Critic') + 2;
33					}
34
35					#-----------------------------------------------------------------------------
36
37
38	1	2µs			1;
39
40					__END__