← 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);
# spent 9µs making 1 call to Perl::Critic::OptionsProcessor::_check_for_extra_options
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
Report produced by the NYTProf 6.01 Perl profiler, developed by Tim Bunce and Adam Kaplan.