Profile of Perl/Critic/Exception/Configuration/NonExistentPolicy.pm

Filename	/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/Perl/Critic/Exception/Configuration/NonExistentPolicy.pm
Statements	Executed 13 statements in 281µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	21µs	21µs	Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@10
1	1	1	12µs	286µs	Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@20
1	1	1	10µs	15µs	Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@12
1	1	1	10µs	37µs	Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@14
1	1	1	10µs	25µs	Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@11
0	0	0	0s	0s	Perl::Critic::Exception::Configuration::NonExistentPolicy::full_message

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::NonExistentPolicy;
9
10	2	57µs	1	21µs	# spent 21µs within Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@10 which was called: # once (21µs+0s) by Perl::Critic::PolicyFactory::BEGIN@34 at line 10 use 5.006001; # spent 21µs making 1 call to Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@10
11	2	31µs	2	41µs	# spent 25µs (10+16) within Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@11 which was called: # once (10µs+16µs) by Perl::Critic::PolicyFactory::BEGIN@34 at line 11 use strict; # spent 25µs making 1 call to Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@11 # spent 16µs making 1 call to strict::import
12	2	25µs	2	21µs	# spent 15µs (10+5) within Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@12 which was called: # once (10µs+5µs) by Perl::Critic::PolicyFactory::BEGIN@34 at line 12 use warnings; # spent 15µs making 1 call to Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@12 # spent 5µs making 1 call to warnings::import
13
14	2	58µs	2	64µs	# spent 37µs (10+27) within Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@14 which was called: # once (10µs+27µs) by Perl::Critic::PolicyFactory::BEGIN@34 at line 14 use Readonly; # spent 37µs making 1 call to Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@14 # spent 27µs making 1 call to Exporter::import
15
16	1	500ns			our $VERSION = '1.121';
17
18					#-----------------------------------------------------------------------------
19
20					# spent 286µs (12+274) within Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@20 which was called: # once (12µs+274µs) by Perl::Critic::PolicyFactory::BEGIN@34 at line 26 use Exception::Class (
21	1	400ns			'Perl::Critic::Exception::Configuration::NonExistentPolicy' => {
22					isa => 'Perl::Critic::Exception::Configuration',
23					description => 'The configuration referred to a non-existant policy.',
24					fields => [ qw{ policy } ],
25					},
26	1	102µs	2	560µs	); # spent 286µs making 1 call to Perl::Critic::Exception::Configuration::NonExistentPolicy::BEGIN@20 # spent 274µs making 1 call to Exception::Class::import
27
28					#-----------------------------------------------------------------------------
29
30	1	3µs	1	35µs	Readonly::Array our @EXPORT_OK => qw< throw_extra_parameter >; # spent 35µs making 1 call to Readonly::Array
31
32					#-----------------------------------------------------------------------------
33
34					sub full_message {
35					my ( $self ) = @_;
36
37					my $policy = $self->policy();
38
39					return qq<There is no $policy policy installed.>;
40					}
41
42
43	1	4µs			1;
44
45					__END__