Filename | /Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/Perl/Critic/Utils/DataConversion.pm |
Statements | Executed 111 statements in 362µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
25 | 25 | 2 | 192µs | 240µs | dor | Perl::Critic::Utils::DataConversion::
5 | 5 | 1 | 27µs | 33µs | boolean_to_number | Perl::Critic::Utils::DataConversion::
1 | 1 | 1 | 15µs | 15µs | BEGIN@10 | Perl::Critic::Utils::DataConversion::
1 | 1 | 1 | 8µs | 13µs | BEGIN@17 | Perl::Critic::Utils::DataConversion::
1 | 1 | 1 | 7µs | 11µs | BEGIN@12 | Perl::Critic::Utils::DataConversion::
1 | 1 | 1 | 7µs | 26µs | BEGIN@13 | Perl::Critic::Utils::DataConversion::
1 | 1 | 1 | 7µs | 277µs | BEGIN@15 | Perl::Critic::Utils::DataConversion::
1 | 1 | 1 | 6µs | 17µs | BEGIN@11 | Perl::Critic::Utils::DataConversion::
0 | 0 | 0 | 0s | 0s | defined_or_empty | Perl::Critic::Utils::DataConversion::
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::Utils::DataConversion; | ||||
9 | |||||
10 | 2 | 36µs | 1 | 15µs | # spent 15µs within Perl::Critic::Utils::DataConversion::BEGIN@10 which was called:
# once (15µs+0s) by Perl::Critic::Policy::BEGIN@33 at line 10 # spent 15µs making 1 call to Perl::Critic::Utils::DataConversion::BEGIN@10 |
11 | 2 | 22µs | 2 | 28µs | # spent 17µs (6+11) within Perl::Critic::Utils::DataConversion::BEGIN@11 which was called:
# once (6µs+11µs) by Perl::Critic::Policy::BEGIN@33 at line 11 # spent 17µs making 1 call to Perl::Critic::Utils::DataConversion::BEGIN@11
# spent 11µs making 1 call to strict::import |
12 | 2 | 23µs | 2 | 14µs | # spent 11µs (7+4) within Perl::Critic::Utils::DataConversion::BEGIN@12 which was called:
# once (7µs+4µs) by Perl::Critic::Policy::BEGIN@33 at line 12 # spent 11µs making 1 call to Perl::Critic::Utils::DataConversion::BEGIN@12
# spent 4µs making 1 call to warnings::import |
13 | 2 | 24µs | 2 | 45µs | # spent 26µs (7+19) within Perl::Critic::Utils::DataConversion::BEGIN@13 which was called:
# once (7µs+19µs) by Perl::Critic::Policy::BEGIN@33 at line 13 # spent 26µs making 1 call to Perl::Critic::Utils::DataConversion::BEGIN@13
# spent 19µs making 1 call to Exporter::import |
14 | |||||
15 | 2 | 22µs | 2 | 548µs | # spent 277µs (7+271) within Perl::Critic::Utils::DataConversion::BEGIN@15 which was called:
# once (7µs+271µs) by Perl::Critic::Policy::BEGIN@33 at line 15 # spent 277µs making 1 call to Perl::Critic::Utils::DataConversion::BEGIN@15
# spent 271µs making 1 call to Exporter::import |
16 | |||||
17 | 2 | 114µs | 2 | 19µs | # spent 13µs (8+6) within Perl::Critic::Utils::DataConversion::BEGIN@17 which was called:
# once (8µs+6µs) by Perl::Critic::Policy::BEGIN@33 at line 17 # spent 13µs making 1 call to Perl::Critic::Utils::DataConversion::BEGIN@17
# spent 6µs making 1 call to Exporter::import |
18 | |||||
19 | 1 | 500ns | our $VERSION = '1.121'; | ||
20 | |||||
21 | #----------------------------------------------------------------------------- | ||||
22 | |||||
23 | 1 | 2µs | 1 | 32µs | Readonly::Array our @EXPORT_OK => qw( # spent 32µs making 1 call to Readonly::Array |
24 | boolean_to_number | ||||
25 | dor | ||||
26 | defined_or_empty | ||||
27 | ); | ||||
28 | |||||
29 | #----------------------------------------------------------------------------- | ||||
30 | |||||
31 | # spent 33µs (27+6) within Perl::Critic::Utils::DataConversion::boolean_to_number which was called 5 times, avg 7µs/call:
# once (7µs+1µs) by Perl::Critic::Config::_init at line 126 of Perl/Critic/Config.pm
# once (6µs+1µs) by Perl::Critic::Config::_init at line 123 of Perl/Critic/Config.pm
# once (5µs+1µs) by Perl::Critic::Config::_init at line 125 of Perl/Critic/Config.pm
# once (5µs+1µs) by Perl::Critic::Config::_init at line 124 of Perl/Critic/Config.pm
# once (4µs+1µs) by Perl::Critic::Config::_init at line 130 of Perl/Critic/Config.pm | ||||
32 | 5 | 8µs | return $_[0] ? $TRUE : $FALSE; | ||
33 | } | ||||
34 | |||||
35 | #----------------------------------------------------------------------------- | ||||
36 | |||||
37 | # spent 240µs (192+48) within Perl::Critic::Utils::DataConversion::dor which was called 25 times, avg 10µs/call:
# once (17µs+3µs) by Perl::Critic::OptionsProcessor::_init at line 44 of Perl/Critic/OptionsProcessor.pm
# once (13µs+3µs) by Perl::Critic::OptionsProcessor::_init at line 74 of Perl/Critic/OptionsProcessor.pm
# once (10µs+3µs) by Perl::Critic::OptionsProcessor::_init at line 81 of Perl/Critic/OptionsProcessor.pm
# once (10µs+3µs) by Perl::Critic::OptionsProcessor::_init at line 67 of Perl/Critic/OptionsProcessor.pm
# once (10µs+2µs) by Perl::Critic::OptionsProcessor::_init at line 88 of Perl/Critic/OptionsProcessor.pm
# once (10µs+2µs) by Perl::Critic::OptionsProcessor::_init at line 95 of Perl/Critic/OptionsProcessor.pm
# once (9µs+3µs) by Perl::Critic::OptionsProcessor::_init at line 47 of Perl/Critic/OptionsProcessor.pm
# once (9µs+3µs) by Perl::Critic::OptionsProcessor::_init at line 60 of Perl/Critic/OptionsProcessor.pm
# once (8µs+3µs) by Perl::Critic::OptionsProcessor::_init at line 50 of Perl/Critic/OptionsProcessor.pm
# once (8µs+3µs) by Perl::Critic::OptionsProcessor::_init at line 56 of Perl/Critic/OptionsProcessor.pm
# once (8µs+3µs) by Perl::Critic::OptionsProcessor::_init at line 64 of Perl/Critic/OptionsProcessor.pm
# once (8µs+3µs) by Perl::Critic::OptionsProcessor::_init at line 58 of Perl/Critic/OptionsProcessor.pm
# once (8µs+2µs) by Perl::Critic::OptionsProcessor::_init at line 59 of Perl/Critic/OptionsProcessor.pm
# once (8µs+2µs) by Perl::Critic::OptionsProcessor::_init at line 54 of Perl/Critic/OptionsProcessor.pm
# once (8µs+2µs) by Perl::Critic::OptionsProcessor::_init at line 55 of Perl/Critic/OptionsProcessor.pm
# once (8µs+2µs) by Perl::Critic::OptionsProcessor::_init at line 61 of Perl/Critic/OptionsProcessor.pm
# once (8µs+2µs) by Perl::Critic::OptionsProcessor::_init at line 63 of Perl/Critic/OptionsProcessor.pm
# once (8µs+2µs) by Perl::Critic::OptionsProcessor::_init at line 65 of Perl/Critic/OptionsProcessor.pm
# once (8µs+2µs) by Perl::Critic::OptionsProcessor::_init at line 62 of Perl/Critic/OptionsProcessor.pm
# once (4µs+0s) by Perl::Critic::Config::_init at line 123 of Perl/Critic/Config.pm
# once (3µs+0s) by Perl::Critic::OptionsProcessor::_init at line 106 of Perl/Critic/OptionsProcessor.pm
# once (2µs+0s) by Perl::Critic::Config::_init at line 130 of Perl/Critic/Config.pm
# once (2µs+0s) by Perl::Critic::Config::_init at line 124 of Perl/Critic/Config.pm
# once (2µs+0s) by Perl::Critic::Config::_init at line 125 of Perl/Critic/Config.pm
# once (2µs+0s) by Perl::Critic::Config::_init at line 126 of Perl/Critic/Config.pm | ||||
38 | 25 | 13µs | foreach (@_) { | ||
39 | 66 | 94µs | 19 | 22µs | defined $_ and return $_; # spent 22µs making 19 calls to Readonly::Scalar::FETCH, avg 1µs/call |
40 | } | ||||
41 | return; | ||||
42 | } | ||||
43 | |||||
44 | #----------------------------------------------------------------------------- | ||||
45 | |||||
46 | sub defined_or_empty { ## no critic (RequireArgUnpacking) | ||||
47 | return defined $_[0] ? $_[0] : $EMPTY; | ||||
48 | } | ||||
49 | |||||
50 | 1 | 3µs | 1; | ||
51 | |||||
52 | __END__ |