← 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/UserProfile.pm
StatementsExecuted 2649 statements in 4.41ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
141111.09ms8.91msPerl::Critic::UserProfile::::policy_paramsPerl::Critic::UserProfile::policy_params
1111.05ms5.38msPerl::Critic::UserProfile::::BEGIN@20Perl::Critic::UserProfile::BEGIN@20
141111.03ms3.98msPerl::Critic::UserProfile::::raw_policy_paramsPerl::Critic::UserProfile::raw_policy_params
14111742┬Ás2.56msPerl::Critic::UserProfile::::policy_is_disabledPerl::Critic::UserProfile::policy_is_disabled
111728┬Ás761┬ÁsPerl::Critic::UserProfile::::BEGIN@17Perl::Critic::UserProfile::BEGIN@17
14111649┬Ás2.30msPerl::Critic::UserProfile::::policy_is_enabledPerl::Critic::UserProfile::policy_is_enabled
11129┬Ás187┬ÁsPerl::Critic::UserProfile::::_load_profile_from_filePerl::Critic::UserProfile::_load_profile_from_file
137120┬Ás20┬ÁsPerl::Critic::UserProfile::::sourcePerl::Critic::UserProfile::source
11116┬Ás625┬ÁsPerl::Critic::UserProfile::::_initPerl::Critic::UserProfile::_init
11116┬Ás205┬ÁsPerl::Critic::UserProfile::::_load_profilePerl::Critic::UserProfile::_load_profile
11115┬Ás15┬ÁsPerl::Critic::UserProfile::::BEGIN@10Perl::Critic::UserProfile::BEGIN@10
11114┬Ás400┬ÁsPerl::Critic::UserProfile::::_set_options_processorPerl::Critic::UserProfile::_set_options_processor
88111┬Ás11┬ÁsPerl::Critic::UserProfile::::options_processorPerl::Critic::UserProfile::options_processor
11111┬Ás45┬ÁsPerl::Critic::UserProfile::::BEGIN@23Perl::Critic::UserProfile::BEGIN@23
11111┬Ás11┬ÁsPerl::Critic::UserProfile::::listed_policiesPerl::Critic::UserProfile::listed_policies
11110┬Ás15┬ÁsPerl::Critic::UserProfile::::BEGIN@12Perl::Critic::UserProfile::BEGIN@12
11110┬Ás635┬ÁsPerl::Critic::UserProfile::::newPerl::Critic::UserProfile::new
1119┬Ás30┬ÁsPerl::Critic::UserProfile::::BEGIN@22Perl::Critic::UserProfile::BEGIN@22
1118┬Ás274┬ÁsPerl::Critic::UserProfile::::BEGIN@21Perl::Critic::UserProfile::BEGIN@21
1118┬Ás26┬ÁsPerl::Critic::UserProfile::::BEGIN@15Perl::Critic::UserProfile::BEGIN@15
1117┬Ás394┬ÁsPerl::Critic::UserProfile::::BEGIN@14Perl::Critic::UserProfile::BEGIN@14
1116┬Ás6┬ÁsPerl::Critic::UserProfile::::BEGIN@24Perl::Critic::UserProfile::BEGIN@24
1116┬Ás6┬ÁsPerl::Critic::UserProfile::::_fix_defaults_keyPerl::Critic::UserProfile::_fix_defaults_key
1116┬Ás17┬ÁsPerl::Critic::UserProfile::::BEGIN@11Perl::Critic::UserProfile::BEGIN@11
1116┬Ás6┬ÁsPerl::Critic::UserProfile::::_set_sourcePerl::Critic::UserProfile::_set_source
1115┬Ás5┬ÁsPerl::Critic::UserProfile::::BEGIN@18Perl::Critic::UserProfile::BEGIN@18
1114┬Ás4┬ÁsPerl::Critic::UserProfile::::_find_profile_pathPerl::Critic::UserProfile::_find_profile_path
111400ns400nsPerl::Critic::UserProfile::::CORE:sortPerl::Critic::UserProfile::CORE:sort (opcode)
0000s0sPerl::Critic::UserProfile::::_find_home_dirPerl::Critic::UserProfile::_find_home_dir
0000s0sPerl::Critic::UserProfile::::_load_profile_from_arrayPerl::Critic::UserProfile::_load_profile_from_array
0000s0sPerl::Critic::UserProfile::::_load_profile_from_hashPerl::Critic::UserProfile::_load_profile_from_hash
0000s0sPerl::Critic::UserProfile::::_load_profile_from_stringPerl::Critic::UserProfile::_load_profile_from_string
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::UserProfile;
9
10238┬Ás115┬Ás
# spent 15┬Ás within Perl::Critic::UserProfile::BEGIN@10 which was called: # once (15┬Ás+0s) by Perl::Critic::Config::BEGIN@26 at line 10
use 5.006001;
# spent 15┬Ás making 1 call to Perl::Critic::UserProfile::BEGIN@10
11219┬Ás228┬Ás
# spent 17┬Ás (6+11) within Perl::Critic::UserProfile::BEGIN@11 which was called: # once (6┬Ás+11┬Ás) by Perl::Critic::Config::BEGIN@26 at line 11
use strict;
# spent 17┬Ás making 1 call to Perl::Critic::UserProfile::BEGIN@11 # spent 11┬Ás making 1 call to strict::import
12221┬Ás220┬Ás
# spent 15┬Ás (10+5) within Perl::Critic::UserProfile::BEGIN@12 which was called: # once (10┬Ás+5┬Ás) by Perl::Critic::Config::BEGIN@26 at line 12
use warnings;
# spent 15┬Ás making 1 call to Perl::Critic::UserProfile::BEGIN@12 # spent 5┬Ás making 1 call to warnings::import
13
14226┬Ás2780┬Ás
# spent 394┬Ás (7+387) within Perl::Critic::UserProfile::BEGIN@14 which was called: # once (7┬Ás+387┬Ás) by Perl::Critic::Config::BEGIN@26 at line 14
use English qw(-no_match_vars);
# spent 394┬Ás making 1 call to Perl::Critic::UserProfile::BEGIN@14 # spent 387┬Ás making 1 call to English::import
15220┬Ás244┬Ás
# spent 26┬Ás (8+18) within Perl::Critic::UserProfile::BEGIN@15 which was called: # once (8┬Ás+18┬Ás) by Perl::Critic::Config::BEGIN@26 at line 15
use Readonly;
# spent 26┬Ás making 1 call to Perl::Critic::UserProfile::BEGIN@15 # spent 18┬Ás making 1 call to Exporter::import
16
17289┬Ás1761┬Ás
# spent 761┬Ás (728+33) within Perl::Critic::UserProfile::BEGIN@17 which was called: # once (728┬Ás+33┬Ás) by Perl::Critic::Config::BEGIN@26 at line 17
use Config::Tiny qw();
# spent 761┬Ás making 1 call to Perl::Critic::UserProfile::BEGIN@17
18220┬Ás15┬Ás
# spent 5┬Ás within Perl::Critic::UserProfile::BEGIN@18 which was called: # once (5┬Ás+0s) by Perl::Critic::Config::BEGIN@26 at line 18
use File::Spec qw();
# spent 5┬Ás making 1 call to Perl::Critic::UserProfile::BEGIN@18
19
20293┬Ás15.38ms
# spent 5.38ms (1.05+4.33) within Perl::Critic::UserProfile::BEGIN@20 which was called: # once (1.05ms+4.33ms) by Perl::Critic::Config::BEGIN@26 at line 20
use Perl::Critic::OptionsProcessor qw();
# spent 5.38ms making 1 call to Perl::Critic::UserProfile::BEGIN@20
21225┬Ás2541┬Ás
# spent 274┬Ás (8+266) within Perl::Critic::UserProfile::BEGIN@21 which was called: # once (8┬Ás+266┬Ás) by Perl::Critic::Config::BEGIN@26 at line 21
use Perl::Critic::Utils qw{ :characters policy_long_name policy_short_name };
# spent 274┬Ás making 1 call to Perl::Critic::UserProfile::BEGIN@21 # spent 266┬Ás making 1 call to Exporter::import
22224┬Ás251┬Ás
# spent 30┬Ás (9+21) within Perl::Critic::UserProfile::BEGIN@22 which was called: # once (9┬Ás+21┬Ás) by Perl::Critic::Config::BEGIN@26 at line 22
use Perl::Critic::Exception::Fatal::Internal qw{ throw_internal };
# spent 30┬Ás making 1 call to Perl::Critic::UserProfile::BEGIN@22 # spent 21┬Ás making 1 call to Exporter::import
23225┬Ás280┬Ás
# spent 45┬Ás (11+34) within Perl::Critic::UserProfile::BEGIN@23 which was called: # once (11┬Ás+34┬Ás) by Perl::Critic::Config::BEGIN@26 at line 23
use Perl::Critic::Exception::Configuration::Generic qw{ throw_generic };
# spent 45┬Ás making 1 call to Perl::Critic::UserProfile::BEGIN@23 # spent 34┬Ás making 1 call to Exporter::import
242913┬Ás16┬Ás
# spent 6┬Ás within Perl::Critic::UserProfile::BEGIN@24 which was called: # once (6┬Ás+0s) by Perl::Critic::Config::BEGIN@26 at line 24
use Perl::Critic::PolicyConfig;
# spent 6┬Ás making 1 call to Perl::Critic::UserProfile::BEGIN@24
25
261600nsour $VERSION = '1.121';
27
28#-----------------------------------------------------------------------------
29
30
# spent 635┬Ás (10+625) within Perl::Critic::UserProfile::new which was called: # once (10┬Ás+625┬Ás) by Perl::Critic::Config::_init at line 70 of Perl/Critic/Config.pm
sub new {
31
3211┬Ás my ( $class, %args ) = @_;
3311┬Ás my $self = bless {}, $class;
3413┬Ás1625┬Ás $self->_init( %args );
# spent 625┬Ás making 1 call to Perl::Critic::UserProfile::_init
3516┬Ás return $self;
36}
37
38#-----------------------------------------------------------------------------
39
40
# spent 625┬Ás (16+609) within Perl::Critic::UserProfile::_init which was called: # once (16┬Ás+609┬Ás) by Perl::Critic::UserProfile::new at line 34
sub _init {
41
421800ns my ( $self, %args ) = @_;
43 # The profile can be defined, undefined, or an empty string.
4413┬Ás14┬Ás my $profile = defined $args{-profile} ? $args{-profile} : _find_profile_path();
# spent 4┬Ás making 1 call to Perl::Critic::UserProfile::_find_profile_path
4513┬Ás1205┬Ás $self->_load_profile( $profile );
# spent 205┬Ás making 1 call to Perl::Critic::UserProfile::_load_profile
4612┬Ás1400┬Ás $self->_set_options_processor();
# spent 400┬Ás making 1 call to Perl::Critic::UserProfile::_set_options_processor
4714┬Ás return $self;
48}
49
50#-----------------------------------------------------------------------------
51
52
# spent 11┬Ás within Perl::Critic::UserProfile::options_processor which was called 8 times, avg 1┬Ás/call: # once (2┬Ás+0s) by Perl::Critic::Config::_init at line 71 of Perl/Critic/Config.pm # once (2┬Ás+0s) by Perl::Critic::Config::_validate_and_save_verbosity at line 484 of Perl/Critic/Config.pm # once (1┬Ás+0s) by Perl::Critic::Config::_validate_and_save_profile_strictness at line 443 of Perl/Critic/Config.pm # once (1┬Ás+0s) by Perl::Critic::Config::_validate_and_save_pager at line 685 of Perl/Critic/Config.pm # once (1┬Ás+0s) by Perl::Critic::Config::_validate_and_save_theme at line 623 of Perl/Critic/Config.pm # once (1┬Ás+0s) by Perl::Critic::Config::_validate_and_save_program_extensions at line 765 of Perl/Critic/Config.pm # once (1┬Ás+0s) by Perl::Critic::Config::_validate_and_save_severity at line 526 of Perl/Critic/Config.pm # once (1┬Ás+0s) by Perl::Critic::Config::_validate_and_save_top at line 585 of Perl/Critic/Config.pm
sub options_processor {
53
5481┬Ás my ($self) = @_;
55824┬Ás return $self->{_options_processor};
56}
57
58#-----------------------------------------------------------------------------
59
60
# spent 8.91ms (1.09+7.83) within Perl::Critic::UserProfile::policy_params which was called 141 times, avg 63┬Ás/call: # 141 times (1.09ms+7.83ms) by Perl::Critic::PolicyFactory::create_policy at line 198 of Perl/Critic/PolicyFactory.pm, avg 63┬Ás/call
sub policy_params {
61
6214130┬Ás my ( $self, $policy ) = @_;
63
64141137┬Ás1411.48ms my $short_name = policy_short_name($policy);
# spent 1.48ms making 141 calls to Perl::Critic::Utils::policy_short_name, avg 10┬Ás/call
65
66141609┬Ás2826.35ms return Perl::Critic::PolicyConfig->new(
# spent 3.98ms making 141 calls to Perl::Critic::UserProfile::raw_policy_params, avg 28┬Ás/call # spent 2.37ms making 141 calls to Perl::Critic::PolicyConfig::new, avg 17┬Ás/call
67 $short_name,
68 $self->raw_policy_params($policy),
69 );
70}
71
72#-----------------------------------------------------------------------------
73
74
# spent 3.98ms (1.03+2.95) within Perl::Critic::UserProfile::raw_policy_params which was called 141 times, avg 28┬Ás/call: # 141 times (1.03ms+2.95ms) by Perl::Critic::UserProfile::policy_params at line 66, avg 28┬Ás/call
sub raw_policy_params {
75
7614133┬Ás my ( $self, $policy ) = @_;
7714144┬Ás my $profile = $self->{_profile};
78141153┬Ás1411.44ms my $long_name = ref $policy || policy_long_name( $policy );
# spent 1.44ms making 141 calls to Perl::Critic::Utils::policy_long_name, avg 10┬Ás/call
79141164┬Ás1411.51ms my $short_name = policy_short_name( $long_name );
# spent 1.51ms making 141 calls to Perl::Critic::Utils::policy_short_name, avg 11┬Ás/call
80
81 return
82141467┬Ás $profile->{$short_name}
83 || $profile->{$long_name}
84 || $profile->{"-$short_name"}
85 || $profile->{"-$long_name"}
86 || {};
87}
88
89#-----------------------------------------------------------------------------
90
91
# spent 2.56ms (742┬Ás+1.82) within Perl::Critic::UserProfile::policy_is_disabled which was called 141 times, avg 18┬Ás/call: # 141 times (742┬Ás+1.82ms) by Perl::Critic::Config::_policy_is_disabled at line 265 of Perl/Critic/Config.pm, avg 18┬Ás/call
sub policy_is_disabled {
92
9314136┬Ás my ( $self, $policy ) = @_;
9414132┬Ás my $profile = $self->{_profile};
9514149┬Ás my $long_name = ref $policy || policy_long_name( $policy );
96141164┬Ás1411.82ms my $short_name = policy_short_name( $long_name );
# spent 1.82ms making 141 calls to Perl::Critic::Utils::policy_short_name, avg 13┬Ás/call
97
98141419┬Ás return exists $profile->{"-$short_name"}
99 || exists $profile->{"-$long_name"};
100}
101
102#-----------------------------------------------------------------------------
103
104
# spent 2.30ms (649┬Ás+1.65) within Perl::Critic::UserProfile::policy_is_enabled which was called 141 times, avg 16┬Ás/call: # 141 times (649┬Ás+1.65ms) by Perl::Critic::Config::_policy_is_enabled at line 273 of Perl/Critic/Config.pm, avg 16┬Ás/call
sub policy_is_enabled {
105
10614124┬Ás my ( $self, $policy ) = @_;
10714132┬Ás my $profile = $self->{_profile};
10814143┬Ás my $long_name = ref $policy || policy_long_name( $policy );
109141148┬Ás1411.65ms my $short_name = policy_short_name( $long_name );
# spent 1.65ms making 141 calls to Perl::Critic::Utils::policy_short_name, avg 12┬Ás/call
110
111141343┬Ás return exists $profile->{$short_name}
112 || exists $profile->{$long_name};
113}
114
115#-----------------------------------------------------------------------------
116
117
# spent 11┬Ás (11+400ns) within Perl::Critic::UserProfile::listed_policies which was called: # once (11┬Ás+400ns) by Perl::Critic::PolicyFactory::_validate_policies_in_profile at line 307 of Perl/Critic/PolicyFactory.pm
sub listed_policies {
118
1191500ns my ( $self, $policy ) = @_;
1201400ns my @normalized_policy_names = ();
121
12218┬Ás1400ns for my $policy_name ( sort keys %{$self->{_profile}} ) {
# spent 400ns making 1 call to Perl::Critic::UserProfile::CORE:sort
123 $policy_name =~ s/\A - //xmso; #Chomp leading "-"
124 my $policy_long_name = policy_long_name( $policy_name );
125 push @normalized_policy_names, $policy_long_name;
126 }
127
12814┬Ás return @normalized_policy_names;
129}
130
131#-----------------------------------------------------------------------------
132
133
# spent 20┬Ás within Perl::Critic::UserProfile::source which was called 13 times, avg 2┬Ás/call: # 5 times (8┬Ás+0s) by Perl::Critic::Config::_validate_and_save_color_severity at line 713 of Perl/Critic/Config.pm, avg 2┬Ás/call # 3 times (4┬Ás+0s) by Perl::Critic::Config::_validate_and_save_regex at line 384 of Perl/Critic/Config.pm, avg 1┬Ás/call # once (2┬Ás+0s) by Perl::Critic::Config::_validate_and_save_profile_strictness at line 442 of Perl/Critic/Config.pm # once (1┬Ás+0s) by Perl::Critic::Config::_validate_and_save_theme at line 622 of Perl/Critic/Config.pm # once (1┬Ás+0s) by Perl::Critic::Config::_validate_and_save_severity at line 525 of Perl/Critic/Config.pm # once (1┬Ás+0s) by Perl::Critic::Config::_validate_and_save_verbosity at line 483 of Perl/Critic/Config.pm # once (1┬Ás+0s) by Perl::Critic::Config::_validate_and_save_top at line 584 of Perl/Critic/Config.pm
sub source {
134132┬Ás my ( $self ) = @_;
135
1361334┬Ás return $self->{_source};
137}
138
139
# spent 6┬Ás within Perl::Critic::UserProfile::_set_source which was called: # once (6┬Ás+0s) by Perl::Critic::UserProfile::_load_profile_from_file at line 194
sub _set_source {
1401600ns my ( $self, $source ) = @_;
141
14214┬Ás $self->{_source} = $source;
143
14413┬Ás return;
145}
146
147#-----------------------------------------------------------------------------
148# Begin PRIVATE methods
149
15013┬Ás140┬ÁsReadonly::Hash my %LOADER_FOR => (
# spent 40┬Ás making 1 call to Readonly::Hash
151 ARRAY => \&_load_profile_from_array,
152 DEFAULT => \&_load_profile_from_file,
153 HASH => \&_load_profile_from_hash,
154 SCALAR => \&_load_profile_from_string,
155);
156
157
# spent 205┬Ás (16+189) within Perl::Critic::UserProfile::_load_profile which was called: # once (16┬Ás+189┬Ás) by Perl::Critic::UserProfile::_init at line 45
sub _load_profile {
158
1591600ns my ( $self, $profile ) = @_;
160
1611600ns my $ref_type = ref $profile || 'DEFAULT';
16215┬Ás12┬Ás my $loader = $LOADER_FOR{$ref_type};
# spent 2┬Ás making 1 call to Readonly::Hash::FETCH
163
1641400ns if (not $loader) {
165 throw_internal qq{Can't load UserProfile from type "$ref_type"};
166 }
167
16813┬Ás1187┬Ás $self->{_profile} = $loader->($self, $profile);
# spent 187┬Ás making 1 call to Perl::Critic::UserProfile::_load_profile_from_file
16913┬Ás return $self;
170}
171
172#-----------------------------------------------------------------------------
173
174
# spent 400┬Ás (14+386) within Perl::Critic::UserProfile::_set_options_processor which was called: # once (14┬Ás+386┬Ás) by Perl::Critic::UserProfile::_init at line 46
sub _set_options_processor {
175
1761400ns my ($self) = @_;
1771500ns my $profile = $self->{_profile};
1781900ns my $defaults = delete $profile->{__defaults__} || {};
179 $self->{_options_processor} =
18015┬Ás1386┬Ás Perl::Critic::OptionsProcessor->new( %{ $defaults } );
# spent 386┬Ás making 1 call to Perl::Critic::OptionsProcessor::new
18114┬Ás return $self;
182}
183
184#-----------------------------------------------------------------------------
185
186
# spent 187┬Ás (29+159) within Perl::Critic::UserProfile::_load_profile_from_file which was called: # once (29┬Ás+159┬Ás) by Perl::Critic::UserProfile::_load_profile at line 168
sub _load_profile_from_file {
1871800ns my ( $self, $file ) = @_;
188
189 # Handle special cases.
1901300ns return {} if not defined $file;
19114┬Ás12┬Ás return {} if $file eq $EMPTY;
# spent 2┬Ás making 1 call to Readonly::Scalar::FETCH
1921400ns return {} if $file eq 'NONE';
193
19412┬Ás16┬Ás $self->_set_source( $file );
# spent 6┬Ás making 1 call to Perl::Critic::UserProfile::_set_source
195
19614┬Ás1144┬Ás my $profile = Config::Tiny->read( $file );
# spent 144┬Ás making 1 call to Config::Tiny::read
1971300ns if (not defined $profile) {
198 my $errstr = Config::Tiny::errstr();
199 throw_generic
200 message => qq{Could not parse profile "$file": $errstr},
201 source => $file;
202 }
203
20412┬Ás16┬Ás _fix_defaults_key( $profile );
# spent 6┬Ás making 1 call to Perl::Critic::UserProfile::_fix_defaults_key
205
20614┬Ás return $profile;
207}
208
209#-----------------------------------------------------------------------------
210
211sub _load_profile_from_array {
212 my ( $self, $array_ref ) = @_;
213 my $joined = join qq{\n}, @{ $array_ref };
214 my $profile = Config::Tiny->read_string( $joined );
215
216 if (not defined $profile) {
217 throw_generic 'Profile error: ' . Config::Tiny::errstr();
218 }
219
220 _fix_defaults_key( $profile );
221
222 return $profile;
223}
224
225#-----------------------------------------------------------------------------
226
227sub _load_profile_from_string {
228 my ( $self, $string ) = @_;
229 my $profile = Config::Tiny->read_string( ${ $string } );
230
231 if (not defined $profile) {
232 throw_generic 'Profile error: ' . Config::Tiny::errstr();
233 }
234
235 _fix_defaults_key( $profile );
236
237 return $profile;
238}
239
240#-----------------------------------------------------------------------------
241
242sub _load_profile_from_hash {
243 my ( $self, $hash_ref ) = @_;
244 return $hash_ref;
245}
246
247#-----------------------------------------------------------------------------
248
249
# spent 4┬Ás within Perl::Critic::UserProfile::_find_profile_path which was called: # once (4┬Ás+0s) by Perl::Critic::UserProfile::_init at line 44
sub _find_profile_path {
250
251 #Define default filename
2521500ns my $rc_file = '.perlcriticrc';
253
254 #Check explicit environment setting
25515┬Ás return $ENV{PERLCRITIC} if exists $ENV{PERLCRITIC};
256
257 #Check current directory
258 return $rc_file if -f $rc_file;
259
260 #Check home directory
261 if ( my $home_dir = _find_home_dir() ) {
262 my $path = File::Spec->catfile( $home_dir, $rc_file );
263 return $path if -f $path;
264 }
265
266 #No profile defined
267 return;
268}
269
270#-----------------------------------------------------------------------------
271
272sub _find_home_dir {
273
274 # Try using File::HomeDir
275 if ( eval { require File::HomeDir } ) {
276 return File::HomeDir->my_home();
277 }
278
279 # Check usual environment vars
280 for my $key (qw(HOME USERPROFILE HOMESHARE)) {
281 next if not defined $ENV{$key};
282 return $ENV{$key} if -d $ENV{$key};
283 }
284
285 # No home directory defined
286 return;
287}
288
289#-----------------------------------------------------------------------------
290
291# !$%@$%^ Config::Tiny uses a completely non-descriptive name for global
292# values.
293
# spent 6┬Ás within Perl::Critic::UserProfile::_fix_defaults_key which was called: # once (6┬Ás+0s) by Perl::Critic::UserProfile::_load_profile_from_file at line 204
sub _fix_defaults_key {
2941500ns my ( $profile ) = @_;
295
29613┬Ás my $defaults = delete $profile->{_};
2971300ns if ($defaults) {
298 $profile->{__defaults__} = $defaults;
299 }
300
30117┬Ás return;
302}
303
30414┬Ás1;
305
306__END__
 
# spent 400ns within Perl::Critic::UserProfile::CORE:sort which was called: # once (400ns+0s) by Perl::Critic::UserProfile::listed_policies at line 122
sub Perl::Critic::UserProfile::CORE:sort; # opcode