| Filename | /Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/Perl/Critic/PolicyParameter/Behavior/String.pm |
| Statements | Executed 136 statements in 338µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 23 | 1 | 1 | 90µs | 126µs | Perl::Critic::PolicyParameter::Behavior::String::initialize_parameter |
| 11 | 1 | 1 | 75µs | 196µs | Perl::Critic::PolicyParameter::Behavior::String::_parse |
| 1 | 1 | 1 | 15µs | 15µs | Perl::Critic::PolicyParameter::Behavior::String::BEGIN@10 |
| 1 | 1 | 1 | 12µs | 918µs | Perl::Critic::PolicyParameter::Behavior::String::BEGIN@14 |
| 1 | 1 | 1 | 7µs | 61µs | Perl::Critic::PolicyParameter::Behavior::String::BEGIN@16 |
| 1 | 1 | 1 | 7µs | 10µs | Perl::Critic::PolicyParameter::Behavior::String::BEGIN@12 |
| 1 | 1 | 1 | 7µs | 18µs | Perl::Critic::PolicyParameter::Behavior::String::BEGIN@11 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | ############################################################################## | ||||
| 2 | # $URL$ | ||||
| 3 | # $Date$ | ||||
| 4 | # $Author$ | ||||
| 5 | # $Revision$ | ||||
| 6 | ############################################################################## | ||||
| 7 | |||||
| 8 | package Perl::Critic::PolicyParameter::Behavior::String; | ||||
| 9 | |||||
| 10 | 2 | 40µs | 1 | 15µs | # spent 15µs within Perl::Critic::PolicyParameter::Behavior::String::BEGIN@10 which was called:
# once (15µs+0s) by Perl::Critic::PolicyParameter::BEGIN@27 at line 10 # spent 15µs making 1 call to Perl::Critic::PolicyParameter::Behavior::String::BEGIN@10 |
| 11 | 2 | 19µs | 2 | 29µs | # spent 18µs (7+11) within Perl::Critic::PolicyParameter::Behavior::String::BEGIN@11 which was called:
# once (7µs+11µs) by Perl::Critic::PolicyParameter::BEGIN@27 at line 11 # spent 18µs making 1 call to Perl::Critic::PolicyParameter::Behavior::String::BEGIN@11
# spent 11µs making 1 call to strict::import |
| 12 | 2 | 18µs | 2 | 14µs | # spent 10µs (7+4) within Perl::Critic::PolicyParameter::Behavior::String::BEGIN@12 which was called:
# once (7µs+4µs) by Perl::Critic::PolicyParameter::BEGIN@27 at line 12 # spent 10µs making 1 call to Perl::Critic::PolicyParameter::Behavior::String::BEGIN@12
# spent 4µs making 1 call to warnings::import |
| 13 | |||||
| 14 | 2 | 25µs | 2 | 1.82ms | # spent 918µs (12+906) within Perl::Critic::PolicyParameter::Behavior::String::BEGIN@14 which was called:
# once (12µs+906µs) by Perl::Critic::PolicyParameter::BEGIN@27 at line 14 # spent 918µs making 1 call to Perl::Critic::PolicyParameter::Behavior::String::BEGIN@14
# spent 906µs making 1 call to Exporter::import |
| 15 | |||||
| 16 | 2 | 102µs | 2 | 61µs | # spent 61µs (7+53) within Perl::Critic::PolicyParameter::Behavior::String::BEGIN@16 which was called:
# once (7µs+53µs) by Perl::Critic::PolicyParameter::BEGIN@27 at line 16 # spent 61µs making 1 call to Perl::Critic::PolicyParameter::Behavior::String::BEGIN@16
# spent 53µs making 1 call to base::import, recursion: max depth 1, sum of overlapping time 53µs |
| 17 | |||||
| 18 | 1 | 600ns | our $VERSION = '1.121'; | ||
| 19 | |||||
| 20 | #----------------------------------------------------------------------------- | ||||
| 21 | |||||
| 22 | # spent 196µs (75+121) within Perl::Critic::PolicyParameter::Behavior::String::_parse which was called 11 times, avg 18µs/call:
# 11 times (75µs+121µs) by Perl::Critic::PolicyParameter::parse_and_validate_config_value at line 231 of Perl/Critic/PolicyParameter.pm, avg 18µs/call | ||||
| 23 | 11 | 3µs | my ($policy, $parameter, $config_string) = @_; | ||
| 24 | |||||
| 25 | 11 | 12µs | 11 | 13µs | my $value = $parameter->get_default_string(); # spent 13µs making 11 calls to Perl::Critic::PolicyParameter::get_default_string, avg 1µs/call |
| 26 | |||||
| 27 | 11 | 1µs | if ( defined $config_string ) { | ||
| 28 | $value = $config_string; | ||||
| 29 | } | ||||
| 30 | |||||
| 31 | 11 | 18µs | 11 | 108µs | $policy->__set_parameter_value($parameter, $value); # spent 108µs making 11 calls to Perl::Critic::Policy::__set_parameter_value, avg 10µs/call |
| 32 | |||||
| 33 | 11 | 20µs | return; | ||
| 34 | } | ||||
| 35 | |||||
| 36 | #----------------------------------------------------------------------------- | ||||
| 37 | |||||
| 38 | # spent 126µs (90+36) within Perl::Critic::PolicyParameter::Behavior::String::initialize_parameter which was called 23 times, avg 5µs/call:
# 23 times (90µs+36µs) by Perl::Critic::PolicyParameter::_initialize_from_behavior at line 115 of Perl/Critic/PolicyParameter.pm, avg 5µs/call | ||||
| 39 | 23 | 6µs | my ($self, $parameter, $specification) = @_; | ||
| 40 | |||||
| 41 | 23 | 27µs | 23 | 36µs | $parameter->_set_parser(\&_parse); # spent 36µs making 23 calls to Perl::Critic::PolicyParameter::_set_parser, avg 2µs/call |
| 42 | |||||
| 43 | 23 | 43µs | return; | ||
| 44 | } | ||||
| 45 | |||||
| 46 | #----------------------------------------------------------------------------- | ||||
| 47 | |||||
| 48 | 1 | 2µs | 1; | ||
| 49 | |||||
| 50 | __END__ |