← Index
NYTProf Performance Profile   « line view »
For /Users/timbo/perl5/perlbrew/perls/perl-5.18.2/bin/perlcritic
  Run on Sat Mar 19 22:12:22 2016
Reported on Sat Mar 19 22:14:13 2016

Filename/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/Perl/Critic/Exception/Configuration/Option/Global/ExtraParameter.pm
StatementsExecuted 13 statements in 238µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11116µs16µsPerl::Critic::Exception::Configuration::Option::Global::ExtraParameter::::BEGIN@10Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter::BEGIN@10
11112µs214µsPerl::Critic::Exception::Configuration::Option::Global::ExtraParameter::::BEGIN@20Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter::BEGIN@20
11111µs32µsPerl::Critic::Exception::Configuration::Option::Global::ExtraParameter::::BEGIN@14Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter::BEGIN@14
1118µs13µsPerl::Critic::Exception::Configuration::Option::Global::ExtraParameter::::BEGIN@12Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter::BEGIN@12
1117µs19µsPerl::Critic::Exception::Configuration::Option::Global::ExtraParameter::::BEGIN@11Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter::BEGIN@11
0000s0sPerl::Critic::Exception::Configuration::Option::Global::ExtraParameter::::full_messagePerl::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
8package Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter;
9
10242µs116µ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;
11220µs230µ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
12226µs218µ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;
13
14242µs254µ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;
15
161300nsour $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 (
211400ns '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 },
261103µs2416µs);
27
28#-----------------------------------------------------------------------------
29
3012µs126µsReadonly::Array our @EXPORT_OK => qw< throw_extra_global >;
# spent 26µs making 1 call to Readonly::Array
31
32#-----------------------------------------------------------------------------
33
34sub 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
5113µs1;
52
53__END__