← 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:11 2016

Filename/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/Perl/Critic/PolicyParameter/Behavior/Boolean.pm
StatementsExecuted 226 statements in 489µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
2011256µs527µsPerl::Critic::PolicyParameter::Behavior::Boolean::::_parsePerl::Critic::PolicyParameter::Behavior::Boolean::_parse
201187µs131µsPerl::Critic::PolicyParameter::Behavior::Boolean::::initialize_parameterPerl::Critic::PolicyParameter::Behavior::Boolean::initialize_parameter
11115µs15µsPerl::Critic::PolicyParameter::Behavior::Boolean::::BEGIN@10Perl::Critic::PolicyParameter::Behavior::Boolean::BEGIN@10
11112µs962µsPerl::Critic::PolicyParameter::Behavior::Boolean::::BEGIN@13Perl::Critic::PolicyParameter::Behavior::Boolean::BEGIN@13
1118µs62µsPerl::Critic::PolicyParameter::Behavior::Boolean::::BEGIN@15Perl::Critic::PolicyParameter::Behavior::Boolean::BEGIN@15
1117µs18µsPerl::Critic::PolicyParameter::Behavior::Boolean::::BEGIN@11Perl::Critic::PolicyParameter::Behavior::Boolean::BEGIN@11
1117µs10µsPerl::Critic::PolicyParameter::Behavior::Boolean::::BEGIN@12Perl::Critic::PolicyParameter::Behavior::Boolean::BEGIN@12
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::PolicyParameter::Behavior::Boolean;
9
10239µs115µs
# spent 15µs within Perl::Critic::PolicyParameter::Behavior::Boolean::BEGIN@10 which was called: # once (15µs+0s) by Perl::Critic::PolicyParameter::BEGIN@24 at line 10
use 5.006001;
11219µs229µs
# spent 18µs (7+11) within Perl::Critic::PolicyParameter::Behavior::Boolean::BEGIN@11 which was called: # once (7µs+11µs) by Perl::Critic::PolicyParameter::BEGIN@24 at line 11
use strict;
# spent 18µs making 1 call to Perl::Critic::PolicyParameter::Behavior::Boolean::BEGIN@11 # spent 11µs making 1 call to strict::import
12217µs214µs
# spent 10µs (7+4) within Perl::Critic::PolicyParameter::Behavior::Boolean::BEGIN@12 which was called: # once (7µs+4µs) by Perl::Critic::PolicyParameter::BEGIN@24 at line 12
use warnings;
# spent 10µs making 1 call to Perl::Critic::PolicyParameter::Behavior::Boolean::BEGIN@12 # spent 4µs making 1 call to warnings::import
13226µs21.91ms
# spent 962µs (12+950) within Perl::Critic::PolicyParameter::Behavior::Boolean::BEGIN@13 which was called: # once (12µs+950µs) by Perl::Critic::PolicyParameter::BEGIN@24 at line 13
use Perl::Critic::Utils;
# spent 962µs making 1 call to Perl::Critic::PolicyParameter::Behavior::Boolean::BEGIN@13 # spent 950µs making 1 call to Exporter::import
14
152128µs262µs
# spent 62µs (8+54) within Perl::Critic::PolicyParameter::Behavior::Boolean::BEGIN@15 which was called: # once (8µs+54µs) by Perl::Critic::PolicyParameter::BEGIN@24 at line 15
use base qw{ Perl::Critic::PolicyParameter::Behavior };
# spent 62µs making 1 call to Perl::Critic::PolicyParameter::Behavior::Boolean::BEGIN@15 # spent 54µs making 1 call to base::import, recursion: max depth 1, sum of overlapping time 54µs
16
171500nsour $VERSION = '1.121';
18
19#-----------------------------------------------------------------------------
20
21
# spent 527µs (256+271) within Perl::Critic::PolicyParameter::Behavior::Boolean::_parse which was called 20 times, avg 26µs/call: # 20 times (256µs+271µs) by Perl::Critic::PolicyParameter::parse_and_validate_config_value at line 231 of Perl/Critic/PolicyParameter.pm, avg 26µs/call
sub _parse {
22206µs my ($policy, $parameter, $config_string) = @_;
23
24201µs my $value;
252026µs2028µs my $value_string = $parameter->get_default_string();
# spent 28µs making 20 calls to Perl::Critic::PolicyParameter::get_default_string, avg 1µs/call
26
27203µs if (defined $config_string) {
28 $value_string = $config_string;
29 }
30
312020µs67µs if ( $value_string ) {
# spent 7µs making 6 calls to Readonly::Scalar::FETCH, avg 1µs/call
32 $value = $TRUE;
33 } else {
341429µs1416µs $value = $FALSE;
# spent 16µs making 14 calls to Readonly::Scalar::FETCH, avg 1µs/call
35 }
36
372057µs20221µs $policy->__set_parameter_value($parameter, $value);
# spent 221µs making 20 calls to Perl::Critic::Policy::__set_parameter_value, avg 11µs/call
38
392038µs return;
40}
41
42#-----------------------------------------------------------------------------
43
44
# spent 131µs (87+44) within Perl::Critic::PolicyParameter::Behavior::Boolean::initialize_parameter which was called 20 times, avg 7µs/call: # 20 times (87µs+44µs) by Perl::Critic::PolicyParameter::_initialize_from_behavior at line 115 of Perl/Critic/PolicyParameter.pm, avg 7µs/call
sub initialize_parameter {
45206µs my ($self, $parameter, $specification) = @_;
46
472028µs2044µs $parameter->_set_parser(\&_parse);
# spent 44µs making 20 calls to Perl::Critic::PolicyParameter::_set_parser, avg 2µs/call
48
492043µs return;
50}
51
52#-----------------------------------------------------------------------------
53
5412µs1;
55
56__END__