← 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/OptionsProcessor.pm
StatementsExecuted 96 statements in 1.37ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111287┬Ás623┬ÁsPerl::Critic::OptionsProcessor::::BEGIN@17Perl::Critic::OptionsProcessor::BEGIN@17
111122┬Ás377┬ÁsPerl::Critic::OptionsProcessor::::_initPerl::Critic::OptionsProcessor::_init
11118┬Ás18┬ÁsPerl::Critic::OptionsProcessor::::BEGIN@10Perl::Critic::OptionsProcessor::BEGIN@10
11112┬Ás25┬ÁsPerl::Critic::OptionsProcessor::::BEGIN@16Perl::Critic::OptionsProcessor::BEGIN@16
11110┬Ás127┬ÁsPerl::Critic::OptionsProcessor::::BEGIN@21Perl::Critic::OptionsProcessor::BEGIN@21
11110┬Ás31┬ÁsPerl::Critic::OptionsProcessor::::BEGIN@25Perl::Critic::OptionsProcessor::BEGIN@25
1118┬Ás3.10msPerl::Critic::OptionsProcessor::::BEGIN@18Perl::Critic::OptionsProcessor::BEGIN@18
1118┬Ás386┬ÁsPerl::Critic::OptionsProcessor::::newPerl::Critic::OptionsProcessor::new
1118┬Ás9┬ÁsPerl::Critic::OptionsProcessor::::_check_for_extra_optionsPerl::Critic::OptionsProcessor::_check_for_extra_options
1118┬Ás376┬ÁsPerl::Critic::OptionsProcessor::::BEGIN@14Perl::Critic::OptionsProcessor::BEGIN@14
1118┬Ás20┬ÁsPerl::Critic::OptionsProcessor::::BEGIN@11Perl::Critic::OptionsProcessor::BEGIN@11
1118┬Ás13┬ÁsPerl::Critic::OptionsProcessor::::BEGIN@12Perl::Critic::OptionsProcessor::BEGIN@12
1117┬Ás7┬ÁsPerl::Critic::OptionsProcessor::::CORE:ftttyPerl::Critic::OptionsProcessor::CORE:fttty (opcode)
2224┬Ás4┬ÁsPerl::Critic::OptionsProcessor::::pagerPerl::Critic::OptionsProcessor::pager
1113┬Ás3┬ÁsPerl::Critic::OptionsProcessor::::color_severity_highPerl::Critic::OptionsProcessor::color_severity_high
1113┬Ás3┬ÁsPerl::Critic::OptionsProcessor::::profile_strictnessPerl::Critic::OptionsProcessor::profile_strictness
1113┬Ás3┬ÁsPerl::Critic::OptionsProcessor::::color_severity_lowPerl::Critic::OptionsProcessor::color_severity_low
1113┬Ás3┬ÁsPerl::Critic::OptionsProcessor::::excludePerl::Critic::OptionsProcessor::exclude
1112┬Ás2┬ÁsPerl::Critic::OptionsProcessor::::color_severity_highestPerl::Critic::OptionsProcessor::color_severity_highest
1112┬Ás2┬ÁsPerl::Critic::OptionsProcessor::::severityPerl::Critic::OptionsProcessor::severity
1112┬Ás2┬ÁsPerl::Critic::OptionsProcessor::::themePerl::Critic::OptionsProcessor::theme
1112┬Ás2┬ÁsPerl::Critic::OptionsProcessor::::color_severity_mediumPerl::Critic::OptionsProcessor::color_severity_medium
1112┬Ás2┬ÁsPerl::Critic::OptionsProcessor::::forcePerl::Critic::OptionsProcessor::force
1112┬Ás2┬ÁsPerl::Critic::OptionsProcessor::::onlyPerl::Critic::OptionsProcessor::only
1112┬Ás2┬ÁsPerl::Critic::OptionsProcessor::::topPerl::Critic::OptionsProcessor::top
1112┬Ás2┬ÁsPerl::Critic::OptionsProcessor::::verbosePerl::Critic::OptionsProcessor::verbose
1112┬Ás2┬ÁsPerl::Critic::OptionsProcessor::::single_policyPerl::Critic::OptionsProcessor::single_policy
1112┬Ás2┬ÁsPerl::Critic::OptionsProcessor::::colorPerl::Critic::OptionsProcessor::color
1112┬Ás2┬ÁsPerl::Critic::OptionsProcessor::::includePerl::Critic::OptionsProcessor::include
1112┬Ás2┬ÁsPerl::Critic::OptionsProcessor::::program_extensionsPerl::Critic::OptionsProcessor::program_extensions
1112┬Ás2┬ÁsPerl::Critic::OptionsProcessor::::allow_unsafePerl::Critic::OptionsProcessor::allow_unsafe
1112┬Ás2┬ÁsPerl::Critic::OptionsProcessor::::color_severity_lowestPerl::Critic::OptionsProcessor::color_severity_lowest
1112┬Ás2┬ÁsPerl::Critic::OptionsProcessor::::criticism_fatalPerl::Critic::OptionsProcessor::criticism_fatal
1111┬Ás1┬ÁsPerl::Critic::OptionsProcessor::::CORE:sortPerl::Critic::OptionsProcessor::CORE:sort (opcode)
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::OptionsProcessor;
9
10245┬Ás118┬Ás
# spent 18┬Ás within Perl::Critic::OptionsProcessor::BEGIN@10 which was called: # once (18┬Ás+0s) by Perl::Critic::UserProfile::BEGIN@20 at line 10
use 5.006001;
# spent 18┬Ás making 1 call to Perl::Critic::OptionsProcessor::BEGIN@10
11221┬Ás232┬Ás
# spent 20┬Ás (8+12) within Perl::Critic::OptionsProcessor::BEGIN@11 which was called: # once (8┬Ás+12┬Ás) by Perl::Critic::UserProfile::BEGIN@20 at line 11
use strict;
# spent 20┬Ás making 1 call to Perl::Critic::OptionsProcessor::BEGIN@11 # spent 12┬Ás making 1 call to strict::import
12225┬Ás218┬Ás
# spent 13┬Ás (8+5) within Perl::Critic::OptionsProcessor::BEGIN@12 which was called: # once (8┬Ás+5┬Ás) by Perl::Critic::UserProfile::BEGIN@20 at line 12
use warnings;
# spent 13┬Ás making 1 call to Perl::Critic::OptionsProcessor::BEGIN@12 # spent 5┬Ás making 1 call to warnings::import
13
14224┬Ás2744┬Ás
# spent 376┬Ás (8+368) within Perl::Critic::OptionsProcessor::BEGIN@14 which was called: # once (8┬Ás+368┬Ás) by Perl::Critic::UserProfile::BEGIN@20 at line 14
use English qw(-no_match_vars);
# spent 376┬Ás making 1 call to Perl::Critic::OptionsProcessor::BEGIN@14 # spent 368┬Ás making 1 call to English::import
15
16223┬Ás238┬Ás
# spent 25┬Ás (12+13) within Perl::Critic::OptionsProcessor::BEGIN@16 which was called: # once (12┬Ás+13┬Ás) by Perl::Critic::UserProfile::BEGIN@20 at line 16
use Perl::Critic::Exception::AggregateConfiguration;
# spent 25┬Ás making 1 call to Perl::Critic::OptionsProcessor::BEGIN@16 # spent 13┬Ás making 1 call to Exporter::import
172109┬Ás2638┬Ás
# spent 623┬Ás (287+336) within Perl::Critic::OptionsProcessor::BEGIN@17 which was called: # once (287┬Ás+336┬Ás) by Perl::Critic::UserProfile::BEGIN@20 at line 17
use Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter;
# spent 623┬Ás making 1 call to Perl::Critic::OptionsProcessor::BEGIN@17 # spent 15┬Ás making 1 call to Exporter::import
181300ns
# spent 3.10ms (8┬Ás+3.09) within Perl::Critic::OptionsProcessor::BEGIN@18 which was called: # once (8┬Ás+3.09ms) by Perl::Critic::UserProfile::BEGIN@20 at line 20
use Perl::Critic::Utils qw<
19 :booleans :characters :severities :data_conversion $DEFAULT_VERBOSITY
20130┬Ás26.18ms>;
# spent 3.10ms making 1 call to Perl::Critic::OptionsProcessor::BEGIN@18 # spent 3.09ms making 1 call to Exporter::import
211500ns
# spent 127┬Ás (10+117) within Perl::Critic::OptionsProcessor::BEGIN@21 which was called: # once (10┬Ás+117┬Ás) by Perl::Critic::UserProfile::BEGIN@20 at line 24
use Perl::Critic::Utils::Constants qw<
22 $PROFILE_STRICTNESS_DEFAULT
23 :color_severity
24127┬Ás2245┬Ás >;
# spent 127┬Ás making 1 call to Perl::Critic::OptionsProcessor::BEGIN@21 # spent 117┬Ás making 1 call to Exporter::import
252815┬Ás252┬Ás
# spent 31┬Ás (10+21) within Perl::Critic::OptionsProcessor::BEGIN@25 which was called: # once (10┬Ás+21┬Ás) by Perl::Critic::UserProfile::BEGIN@20 at line 25
use Perl::Critic::Utils::DataConversion qw< dor >;
# spent 31┬Ás making 1 call to Perl::Critic::OptionsProcessor::BEGIN@25 # spent 21┬Ás making 1 call to Exporter::import
26
271600nsour $VERSION = '1.121';
28
29#-----------------------------------------------------------------------------
30
31
# spent 386┬Ás (8+377) within Perl::Critic::OptionsProcessor::new which was called: # once (8┬Ás+377┬Ás) by Perl::Critic::UserProfile::_set_options_processor at line 180 of Perl/Critic/UserProfile.pm
sub new {
321900ns my ($class, %args) = @_;
3311┬Ás my $self = bless {}, $class;
3412┬Ás1377┬Ás $self->_init( %args );
# spent 377┬Ás making 1 call to Perl::Critic::OptionsProcessor::_init
3516┬Ás return $self;
36}
37
38#-----------------------------------------------------------------------------
39
40
# spent 377┬Ás (122+255) within Perl::Critic::OptionsProcessor::_init which was called: # once (122┬Ás+255┬Ás) by Perl::Critic::OptionsProcessor::new at line 34
sub _init {
411500ns my ( $self, %args ) = @_;
42
43 # Multi-value defaults
4417┬Ás221┬Ás my $exclude = dor(delete $args{exclude}, $EMPTY);
# spent 20┬Ás making 1 call to Perl::Critic::Utils::DataConversion::dor # spent 2┬Ás making 1 call to Readonly::Scalar::FETCH
4516┬Ás14┬Ás $self->{_exclude} = [ words_from_string( $exclude ) ];
# spent 4┬Ás making 1 call to Perl::Critic::Utils::words_from_string
46
4715┬Ás213┬Ás my $include = dor(delete $args{include}, $EMPTY);
# spent 12┬Ás making 1 call to Perl::Critic::Utils::DataConversion::dor # spent 1┬Ás making 1 call to Readonly::Scalar::FETCH
4812┬Ás11┬Ás $self->{_include} = [ words_from_string( $include ) ];
# spent 1┬Ás making 1 call to Perl::Critic::Utils::words_from_string
49
5015┬Ás213┬Ás my $program_extensions = dor(delete $args{'program-extensions'}, $EMPTY);
# spent 11┬Ás making 1 call to Perl::Critic::Utils::DataConversion::dor # spent 2┬Ás making 1 call to Readonly::Scalar::FETCH
5111┬Ás11┬Ás $self->{_program_extensions} = [ words_from_string( $program_extensions) ];
# spent 1┬Ás making 1 call to Perl::Critic::Utils::words_from_string
52
53 # Single-value defaults
5415┬Ás212┬Ás $self->{_force} = dor(delete $args{force}, $FALSE);
# spent 11┬Ás making 1 call to Perl::Critic::Utils::DataConversion::dor # spent 1┬Ás making 1 call to Readonly::Scalar::FETCH
5514┬Ás212┬Ás $self->{_only} = dor(delete $args{only}, $FALSE);
# spent 10┬Ás making 1 call to Perl::Critic::Utils::DataConversion::dor # spent 1┬Ás making 1 call to Readonly::Scalar::FETCH
5616┬Ás212┬Ás $self->{_profile_strictness} =
# spent 11┬Ás making 1 call to Perl::Critic::Utils::DataConversion::dor # spent 1┬Ás making 1 call to Readonly::Scalar::FETCH
57 dor(delete $args{'profile-strictness'}, $PROFILE_STRICTNESS_DEFAULT);
5815┬Ás212┬Ás $self->{_single_policy} = dor(delete $args{'single-policy'}, $EMPTY);
# spent 11┬Ás making 1 call to Perl::Critic::Utils::DataConversion::dor # spent 1┬Ás making 1 call to Readonly::Scalar::FETCH
5916┬Ás212┬Ás $self->{_severity} = dor(delete $args{severity}, $SEVERITY_HIGHEST);
# spent 11┬Ás making 1 call to Perl::Critic::Utils::DataConversion::dor # spent 1┬Ás making 1 call to Readonly::Scalar::FETCH
6015┬Ás213┬Ás $self->{_theme} = dor(delete $args{theme}, $EMPTY);
# spent 11┬Ás making 1 call to Perl::Critic::Utils::DataConversion::dor # spent 1┬Ás making 1 call to Readonly::Scalar::FETCH
6114┬Ás212┬Ás $self->{_top} = dor(delete $args{top}, $FALSE);
# spent 10┬Ás making 1 call to Perl::Critic::Utils::DataConversion::dor # spent 1┬Ás making 1 call to Readonly::Scalar::FETCH
6214┬Ás211┬Ás $self->{_verbose} = dor(delete $args{verbose}, $DEFAULT_VERBOSITY);
# spent 10┬Ás making 1 call to Perl::Critic::Utils::DataConversion::dor # spent 1┬Ás making 1 call to Readonly::Scalar::FETCH
6315┬Ás212┬Ás $self->{_criticism_fatal} = dor(delete $args{'criticism-fatal'}, $FALSE);
# spent 10┬Ás making 1 call to Perl::Critic::Utils::DataConversion::dor # spent 1┬Ás making 1 call to Readonly::Scalar::FETCH
6415┬Ás212┬Ás $self->{_pager} = dor(delete $args{pager}, $EMPTY);
# spent 11┬Ás making 1 call to Perl::Critic::Utils::DataConversion::dor # spent 2┬Ás making 1 call to Readonly::Scalar::FETCH
6514┬Ás212┬Ás $self->{_allow_unsafe} = dor(delete $args{'allow-unsafe'}, $FALSE);
# spent 10┬Ás making 1 call to Perl::Critic::Utils::DataConversion::dor # spent 1┬Ás making 1 call to Readonly::Scalar::FETCH
66
6716┬Ás214┬Ás $self->{_color_severity_highest} = dor(
# spent 13┬Ás making 1 call to Perl::Critic::Utils::DataConversion::dor # spent 1┬Ás making 1 call to Readonly::Scalar::FETCH
68 delete $args{'color-severity-highest'},
69 delete $args{'colour-severity-highest'},
70 delete $args{'color-severity-5'},
71 delete $args{'colour-severity-5'},
72 $PROFILE_COLOR_SEVERITY_HIGHEST_DEFAULT,
73 );
7419┬Ás217┬Ás $self->{_color_severity_high} = dor(
# spent 16┬Ás making 1 call to Perl::Critic::Utils::DataConversion::dor # spent 1┬Ás making 1 call to Readonly::Scalar::FETCH
75 delete $args{'color-severity-high'},
76 delete $args{'colour-severity-high'},
77 delete $args{'color-severity-4'},
78 delete $args{'colour-severity-4'},
79 $PROFILE_COLOR_SEVERITY_HIGH_DEFAULT,
80 );
8116┬Ás214┬Ás $self->{_color_severity_medium} = dor(
# spent 13┬Ás making 1 call to Perl::Critic::Utils::DataConversion::dor # spent 1┬Ás making 1 call to Readonly::Scalar::FETCH
82 delete $args{'color-severity-medium'},
83 delete $args{'colour-severity-medium'},
84 delete $args{'color-severity-3'},
85 delete $args{'colour-severity-3'},
86 $PROFILE_COLOR_SEVERITY_MEDIUM_DEFAULT,
87 );
8815┬Ás214┬Ás $self->{_color_severity_low} = dor(
# spent 12┬Ás making 1 call to Perl::Critic::Utils::DataConversion::dor # spent 1┬Ás making 1 call to Readonly::Scalar::FETCH
89 delete $args{'color-severity-low'},
90 delete $args{'colour-severity-low'},
91 delete $args{'color-severity-2'},
92 delete $args{'colour-severity-2'},
93 $PROFILE_COLOR_SEVERITY_LOW_DEFAULT,
94 );
9515┬Ás214┬Ás $self->{_color_severity_lowest} = dor(
# spent 12┬Ás making 1 call to Perl::Critic::Utils::DataConversion::dor # spent 1┬Ás making 1 call to Readonly::Scalar::FETCH
96 delete $args{'color-severity-lowest'},
97 delete $args{'colour-severity-lowest'},
98 delete $args{'color-severity-1'},
99 delete $args{'colour-severity-1'},
100 $PROFILE_COLOR_SEVERITY_LOWEST_DEFAULT,
101 );
102
103 # If we're using a pager or not outputing to a tty don't use colors.
104 # Can't use IO::Interactive here because we /don't/ want to check STDIN.
105117┬Ás310┬Ás my $default_color = ($self->pager() or not -t *STDOUT) ? $FALSE : $TRUE; ## no critic (ProhibitInteractiveTest)
# spent 7┬Ás making 1 call to Perl::Critic::OptionsProcessor::CORE:fttty # spent 2┬Ás making 1 call to Perl::Critic::OptionsProcessor::pager # spent 1┬Ás making 1 call to Readonly::Scalar::FETCH
10612┬Ás13┬Ás $self->{_color} = dor(delete $args{color}, delete $args{colour}, $default_color);
# spent 3┬Ás making 1 call to Perl::Critic::Utils::DataConversion::dor
107
108 # If there's anything left, complain.
10912┬Ás19┬Ás _check_for_extra_options(%args);
110
11114┬Ás return $self;
112}
113
114#-----------------------------------------------------------------------------
115
116
# spent 9┬Ás (8+1) within Perl::Critic::OptionsProcessor::_check_for_extra_options which was called: # once (8┬Ás+1┬Ás) by Perl::Critic::OptionsProcessor::_init at line 109
sub _check_for_extra_options {
1171600ns my %args = @_;
118
11917┬Ás11┬Ás if ( my @remaining = sort keys %args ){
# spent 1┬Ás making 1 call to Perl::Critic::OptionsProcessor::CORE:sort
120 my $errors = Perl::Critic::Exception::AggregateConfiguration->new();
121
122 foreach my $option_name (@remaining) {
123 $errors->add_exception(
124 Perl::Critic::Exception::Configuration::Option::Global::ExtraParameter->new(
125 option_name => $option_name,
126 )
127 )
128 }
129
130 $errors->rethrow();
131 }
132
13314┬Ás return;
134}
135
136#-----------------------------------------------------------------------------
137# Public ACCESSOR methods
138
139
# spent 2┬Ás within Perl::Critic::OptionsProcessor::severity which was called: # once (2┬Ás+0s) by Perl::Critic::Config::_validate_and_save_severity at line 526 of Perl/Critic/Config.pm
sub severity {
1401300ns my ($self) = @_;
14113┬Ás return $self->{_severity};
142}
143
144#-----------------------------------------------------------------------------
145
146
# spent 2┬Ás within Perl::Critic::OptionsProcessor::theme which was called: # once (2┬Ás+0s) by Perl::Critic::Config::_validate_and_save_theme at line 623 of Perl/Critic/Config.pm
sub theme {
1471400ns my ($self) = @_;
14813┬Ás return $self->{_theme};
149}
150
151#-----------------------------------------------------------------------------
152
153
# spent 3┬Ás within Perl::Critic::OptionsProcessor::exclude which was called: # once (3┬Ás+0s) by Perl::Critic::Config::_init at line 83 of Perl/Critic/Config.pm
sub exclude {
1541400ns my ($self) = @_;
15514┬Ás return $self->{_exclude};
156}
157
158#-----------------------------------------------------------------------------
159
160
# spent 2┬Ás within Perl::Critic::OptionsProcessor::include which was called: # once (2┬Ás+0s) by Perl::Critic::Config::_init at line 80 of Perl/Critic/Config.pm
sub include {
1611300ns my ($self) = @_;
16214┬Ás return $self->{_include};
163}
164
165#-----------------------------------------------------------------------------
166
167
# spent 2┬Ás within Perl::Critic::OptionsProcessor::only which was called: # once (2┬Ás+0s) by Perl::Critic::Config::_init at line 124 of Perl/Critic/Config.pm
sub only {
1681400ns my ($self) = @_;
16913┬Ás return $self->{_only};
170}
171
172#-----------------------------------------------------------------------------
173
174
# spent 3┬Ás within Perl::Critic::OptionsProcessor::profile_strictness which was called: # once (3┬Ás+0s) by Perl::Critic::Config::_validate_and_save_profile_strictness at line 443 of Perl/Critic/Config.pm
sub profile_strictness {
1751400ns my ($self) = @_;
17614┬Ás return $self->{_profile_strictness};
177}
178
179#-----------------------------------------------------------------------------
180
181
# spent 2┬Ás within Perl::Critic::OptionsProcessor::single_policy which was called: # once (2┬Ás+0s) by Perl::Critic::Config::_init at line 86 of Perl/Critic/Config.pm
sub single_policy {
1821400ns my ($self) = @_;
18314┬Ás return $self->{_single_policy};
184}
185
186#-----------------------------------------------------------------------------
187
188
# spent 2┬Ás within Perl::Critic::OptionsProcessor::verbose which was called: # once (2┬Ás+0s) by Perl::Critic::Config::_validate_and_save_verbosity at line 484 of Perl/Critic/Config.pm
sub verbose {
1891400ns my ($self) = @_;
19013┬Ás return $self->{_verbose};
191}
192
193#-----------------------------------------------------------------------------
194
195
# spent 2┬Ás within Perl::Critic::OptionsProcessor::color which was called: # once (2┬Ás+0s) by Perl::Critic::Config::_init at line 125 of Perl/Critic/Config.pm
sub color {
1961400ns my ($self) = @_;
19713┬Ás return $self->{_color};
198}
199
200#-----------------------------------------------------------------------------
201
202
# spent 4┬Ás within Perl::Critic::OptionsProcessor::pager which was called 2 times, avg 2┬Ás/call: # once (2┬Ás+0s) by Perl::Critic::OptionsProcessor::_init at line 105 # once (2┬Ás+0s) by Perl::Critic::Config::_validate_and_save_pager at line 685 of Perl/Critic/Config.pm
sub pager {
2032600ns my ($self) = @_;
20428┬Ás return $self->{_pager};
205}
206
207#-----------------------------------------------------------------------------
208
209
# spent 2┬Ás within Perl::Critic::OptionsProcessor::allow_unsafe which was called: # once (2┬Ás+0s) by Perl::Critic::Config::_init at line 126 of Perl/Critic/Config.pm
sub allow_unsafe {
2101400ns my ($self) = @_;
21113┬Ás return $self->{_allow_unsafe};
212}
213
214#-----------------------------------------------------------------------------
215
216
# spent 2┬Ás within Perl::Critic::OptionsProcessor::criticism_fatal which was called: # once (2┬Ás+0s) by Perl::Critic::Config::_init at line 130 of Perl/Critic/Config.pm
sub criticism_fatal {
2171400ns my ($self) = @_;
21813┬Ás return $self->{_criticism_fatal};
219}
220
221#-----------------------------------------------------------------------------
222
223
# spent 2┬Ás within Perl::Critic::OptionsProcessor::force which was called: # once (2┬Ás+0s) by Perl::Critic::Config::_init at line 123 of Perl/Critic/Config.pm
sub force {
2241400ns my ($self) = @_;
22514┬Ás return $self->{_force};
226}
227
228#-----------------------------------------------------------------------------
229
230
# spent 2┬Ás within Perl::Critic::OptionsProcessor::top which was called: # once (2┬Ás+0s) by Perl::Critic::Config::_validate_and_save_top at line 585 of Perl/Critic/Config.pm
sub top {
2311300ns my ($self) = @_;
23214┬Ás return $self->{_top};
233}
234
235#-----------------------------------------------------------------------------
236
237
# spent 2┬Ás within Perl::Critic::OptionsProcessor::color_severity_highest which was called: # once (2┬Ás+0s) by Perl::Critic::Config::_init at line 92 of Perl/Critic/Config.pm
sub color_severity_highest {
2381400ns my ($self) = @_;
23914┬Ás return $self->{_color_severity_highest};
240}
241
242#-----------------------------------------------------------------------------
243
244
# spent 3┬Ás within Perl::Critic::OptionsProcessor::color_severity_high which was called: # once (3┬Ás+0s) by Perl::Critic::Config::_init at line 96 of Perl/Critic/Config.pm
sub color_severity_high {
2451400ns my ($self) = @_;
24614┬Ás return $self->{_color_severity_high};
247}
248
249#-----------------------------------------------------------------------------
250
251
# spent 2┬Ás within Perl::Critic::OptionsProcessor::color_severity_medium which was called: # once (2┬Ás+0s) by Perl::Critic::Config::_init at line 100 of Perl/Critic/Config.pm
sub color_severity_medium {
2521300ns my ($self) = @_;
25314┬Ás return $self->{_color_severity_medium};
254}
255
256#-----------------------------------------------------------------------------
257
258
# spent 3┬Ás within Perl::Critic::OptionsProcessor::color_severity_low which was called: # once (3┬Ás+0s) by Perl::Critic::Config::_init at line 104 of Perl/Critic/Config.pm
sub color_severity_low {
2591400ns my ($self) = @_;
26014┬Ás return $self->{_color_severity_low};
261}
262
263#-----------------------------------------------------------------------------
264
265
# spent 2┬Ás within Perl::Critic::OptionsProcessor::color_severity_lowest which was called: # once (2┬Ás+0s) by Perl::Critic::Config::_init at line 108 of Perl/Critic/Config.pm
sub color_severity_lowest {
2661300ns my ($self) = @_;
26714┬Ás return $self->{_color_severity_lowest};
268}
269
270#-----------------------------------------------------------------------------
271
272
# spent 2┬Ás within Perl::Critic::OptionsProcessor::program_extensions which was called: # once (2┬Ás+0s) by Perl::Critic::Config::_validate_and_save_program_extensions at line 765 of Perl/Critic/Config.pm
sub program_extensions {
2731400ns my ($self) = @_;
27417┬Ás return $self->{_program_extensions};
275}
276
277#-----------------------------------------------------------------------------
278
27912┬Ás1;
280
281__END__
 
# spent 7┬Ás within Perl::Critic::OptionsProcessor::CORE:fttty which was called: # once (7┬Ás+0s) by Perl::Critic::OptionsProcessor::_init at line 105
sub Perl::Critic::OptionsProcessor::CORE:fttty; # opcode
# spent 1┬Ás within Perl::Critic::OptionsProcessor::CORE:sort which was called: # once (1┬Ás+0s) by Perl::Critic::OptionsProcessor::_check_for_extra_options at line 119
sub Perl::Critic::OptionsProcessor::CORE:sort; # opcode