Profile of Perl/Critic/Exception/Configuration/Option/Policy.pm

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

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	24µs	24µs	Perl::Critic::Exception::Configuration::Option::Policy::BEGIN@10
1	1	1	16µs	358µs	Perl::Critic::Exception::Configuration::Option::Policy::BEGIN@20
1	1	1	13µs	186µs	Perl::Critic::Exception::Configuration::Option::Policy::BEGIN@14
1	1	1	8µs	12µs	Perl::Critic::Exception::Configuration::Option::Policy::BEGIN@12
1	1	1	7µs	18µs	Perl::Critic::Exception::Configuration::Option::Policy::BEGIN@11
0	0	0	0s	0s	Perl::Critic::Exception::Configuration::Option::Policy::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::Configuration::Option::Policy;
9
10	2	38µs	1	24µs	# spent 24µs within Perl::Critic::Exception::Configuration::Option::Policy::BEGIN@10 which was called: # once (24µs+0s) by base::import at line 10 use 5.006001; # spent 24µs making 1 call to Perl::Critic::Exception::Configuration::Option::Policy::BEGIN@10
11	2	32µs	2	30µs	# spent 18µs (7+11) within Perl::Critic::Exception::Configuration::Option::Policy::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::Configuration::Option::Policy::BEGIN@11 # spent 11µs making 1 call to strict::import
12	2	61µs	2	15µs	# spent 12µs (8+4) within Perl::Critic::Exception::Configuration::Option::Policy::BEGIN@12 which was called: # once (8µs+4µs) by base::import at line 12 use warnings; # spent 12µs making 1 call to Perl::Critic::Exception::Configuration::Option::Policy::BEGIN@12 # spent 4µs making 1 call to warnings::import
13
14	2	86µs	2	359µs	# spent 186µs (13+173) within Perl::Critic::Exception::Configuration::Option::Policy::BEGIN@14 which was called: # once (13µs+173µs) by base::import at line 14 use Perl::Critic::Utils qw{ &policy_short_name }; # spent 186µs making 1 call to Perl::Critic::Exception::Configuration::Option::Policy::BEGIN@14 # spent 173µs making 1 call to Exporter::import
15
16	1	500ns			our $VERSION = '1.121';
17
18					#-----------------------------------------------------------------------------
19
20					# spent 358µs (16+342) within Perl::Critic::Exception::Configuration::Option::Policy::BEGIN@20 which was called: # once (16µs+342µs) by base::import at line 26 use Exception::Class (
21	1	500ns			'Perl::Critic::Exception::Configuration::Option::Policy' => {
22					isa => 'Perl::Critic::Exception::Configuration::Option',
23					description => 'A problem with the configuration of a policy.',
24					fields => [ qw{ policy } ],
25					},
26	1	114µs	2	358µs	); # spent 358µs making 1 call to Perl::Critic::Exception::Configuration::Option::Policy::BEGIN@20 # spent 342µs making 1 call to Exception::Class::import, recursion: max depth 1, sum of overlapping time 342µs
27
28					#-----------------------------------------------------------------------------
29
30					sub new {
31					my ($class, %options) = @_;
32
33					my $policy = $options{policy};
34					if ($policy) {
35					$options{policy} = policy_short_name($policy);
36					}
37
38					return $class->SUPER::new(%options);
39					}
40
41
42	1	4µs			1;
43
44					__END__