Profile of Perl/Critic/Exception/Configuration/Option/Global/ExtraParameter.pm

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

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	16µs	16µs	Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter::BEGIN@10
1	1	1	12µs	214µs	Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter::BEGIN@20
1	1	1	11µs	32µs	Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter::BEGIN@14
1	1	1	8µs	13µs	Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter::BEGIN@12
1	1	1	7µs	19µs	Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter::BEGIN@11
0	0	0	0s	0s	Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter::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::Option::Global::ExtraParameter;
9
10	2	42µs	1	16µs	# spent 16µs within Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter::BEGIN@10 which was called: # once (16µs+0s) by Perl::Critic::OptionsProcessor::BEGIN@17 at line 10 use 5.006001; # spent 16µs making 1 call to Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter::BEGIN@10
11	2	20µs	2	30µs	# spent 19µs (7+11) within Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter::BEGIN@11 which was called: # once (7µs+11µs) by Perl::Critic::OptionsProcessor::BEGIN@17 at line 11 use strict; # spent 19µs making 1 call to Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter::BEGIN@11 # spent 11µs making 1 call to strict::import
12	2	26µs	2	18µs	# spent 13µs (8+5) within Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter::BEGIN@12 which was called: # once (8µs+5µs) by Perl::Critic::OptionsProcessor::BEGIN@17 at line 12 use warnings; # spent 13µs making 1 call to Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter::BEGIN@12 # spent 5µs making 1 call to warnings::import
13
14	2	42µs	2	54µs	# spent 32µs (11+21) within Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter::BEGIN@14 which was called: # once (11µs+21µs) by Perl::Critic::OptionsProcessor::BEGIN@17 at line 14 use Readonly; # spent 32µs making 1 call to Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter::BEGIN@14 # spent 22µs making 1 call to Exporter::import
15
16	1	300ns			our $VERSION = '1.121';
17
18					#-----------------------------------------------------------------------------
19
20					# spent 214µs (12+202) within Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter::BEGIN@20 which was called: # once (12µs+202µs) by Perl::Critic::OptionsProcessor::BEGIN@17 at line 26 use Exception::Class (
21	1	400ns			'Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter' => {
22					isa => 'Perl::Critic::Exception::Configuration::Option::Global',
23					description => 'The configuration referred to a non-existant global option.',
24					alias => 'throw_extra_global',
25					},
26	1	103µs	2	416µs	); # spent 214µs making 1 call to Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter::BEGIN@20 # spent 202µs making 1 call to Exception::Class::import
27
28					#-----------------------------------------------------------------------------
29
30	1	2µs	1	26µs	Readonly::Array our @EXPORT_OK => qw< throw_extra_global >; # spent 26µs making 1 call to Readonly::Array
31
32					#-----------------------------------------------------------------------------
33
34					sub full_message {
35					my ( $self ) = @_;
36
37					my $source = $self->source();
38					if ($source) {
39					$source = qq{ (found in "$source")};
40					}
41					else {
42					$source = q{};
43					}
44
45					my $option_name = $self->option_name();
46
47					return qq{"$option_name" is not a supported option$source.};
48					}
49
50
51	1	3µs			1;
52
53					__END__