| Filename | /Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/Path/IsDev/NegativeHeuristic/PerlINC.pm |
| Statements | Executed 87 statements in 648µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 10 | 1 | 1 | 216µs | 398µs | Path::IsDev::NegativeHeuristic::PerlINC::paths |
| 10 | 1 | 1 | 69µs | 10.1ms | Path::IsDev::NegativeHeuristic::PerlINC::excludes |
| 10 | 1 | 1 | 52µs | 52µs | Path::IsDev::NegativeHeuristic::PerlINC::_uniq |
| 1 | 1 | 1 | 17µs | 17µs | Module::Runtime::BEGIN@1.45 |
| 1 | 1 | 1 | 11µs | 23µs | Path::IsDev::NegativeHeuristic::PerlINC::BEGIN@34 |
| 1 | 1 | 1 | 9µs | 11µs | Module::Runtime::BEGIN@4.48 |
| 1 | 1 | 1 | 9µs | 42µs | Path::IsDev::NegativeHeuristic::PerlINC::BEGIN@33 |
| 1 | 1 | 1 | 9µs | 14µs | Module::Runtime::BEGIN@3.47 |
| 1 | 1 | 1 | 7µs | 19µs | Module::Runtime::BEGIN@2.46 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | 2 | 42µs | 1 | 17µs | # spent 17µs within Module::Runtime::BEGIN@1.45 which was called:
# once (17µs+0s) by Module::Runtime::require_module at line 1 # spent 17µs making 1 call to Module::Runtime::BEGIN@1.45 |
| 2 | 2 | 27µs | 2 | 31µs | # spent 19µs (7+12) within Module::Runtime::BEGIN@2.46 which was called:
# once (7µs+12µs) by Module::Runtime::require_module at line 2 # spent 19µs making 1 call to Module::Runtime::BEGIN@2.46
# spent 12µs making 1 call to strict::import |
| 3 | 2 | 24µs | 2 | 20µs | # spent 14µs (9+6) within Module::Runtime::BEGIN@3.47 which was called:
# once (9µs+6µs) by Module::Runtime::require_module at line 3 # spent 14µs making 1 call to Module::Runtime::BEGIN@3.47
# spent 6µs making 1 call to warnings::import |
| 4 | 2 | 99µs | 2 | 14µs | # spent 11µs (9+2) within Module::Runtime::BEGIN@4.48 which was called:
# once (9µs+2µs) by Module::Runtime::require_module at line 4 # spent 11µs making 1 call to Module::Runtime::BEGIN@4.48
# spent 2µs making 1 call to utf8::import |
| 5 | |||||
| 6 | package Path::IsDev::NegativeHeuristic::PerlINC; | ||||
| 7 | 1 | 600ns | $Path::IsDev::NegativeHeuristic::PerlINC::VERSION = '1.001000'; | ||
| 8 | # ABSTRACT: White-list paths in Config.pm as being non-development roots. | ||||
| 9 | |||||
| 10 | 1 | 200ns | our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY | ||
| 11 | |||||
| 12 | ## no critic (RequireArgUnpacking, ProhibitSubroutinePrototypes) | ||||
| 13 | # spent 52µs within Path::IsDev::NegativeHeuristic::PerlINC::_uniq which was called 10 times, avg 5µs/call:
# 10 times (52µs+0s) by Path::IsDev::NegativeHeuristic::PerlINC::paths at line 49, avg 5µs/call | ||||
| 14 | 10 | 4µs | my %seen = (); | ||
| 15 | 10 | 58µs | return grep { not $seen{$_}++ } @_; | ||
| 16 | } | ||||
| 17 | |||||
| - - | |||||
| 33 | 2 | 24µs | 2 | 76µs | # spent 42µs (9+33) within Path::IsDev::NegativeHeuristic::PerlINC::BEGIN@33 which was called:
# once (9µs+33µs) by Module::Runtime::require_module at line 33 # spent 42µs making 1 call to Path::IsDev::NegativeHeuristic::PerlINC::BEGIN@33
# spent 33µs making 1 call to Exporter::import |
| 34 | 2 | 139µs | 2 | 36µs | # spent 23µs (11+13) within Path::IsDev::NegativeHeuristic::PerlINC::BEGIN@34 which was called:
# once (11µs+13µs) by Module::Runtime::require_module at line 34 # spent 23µs making 1 call to Path::IsDev::NegativeHeuristic::PerlINC::BEGIN@34
# spent 13µs making 1 call to Config::import |
| 35 | |||||
| 36 | 1 | 2µs | 1 | 304µs | with 'Path::IsDev::Role::NegativeHeuristic', 'Path::IsDev::Role::Matcher::FullPath::Is::Any'; # spent 304µs making 1 call to Role::Tiny::With::with |
| 37 | |||||
| - - | |||||
| 46 | # spent 398µs (216+182) within Path::IsDev::NegativeHeuristic::PerlINC::paths which was called 10 times, avg 40µs/call:
# 10 times (216µs+182µs) by Path::IsDev::NegativeHeuristic::PerlINC::excludes at line 61, avg 40µs/call | ||||
| 47 | 10 | 2µs | my @sources; | ||
| 48 | 10 | 122µs | 40 | 130µs | push @sources, $Config{archlibexp}, $Config{privlibexp}, $Config{sitelibexp}, $Config{vendorlibexp}; # spent 130µs making 40 calls to Config::FETCH, avg 3µs/call |
| 49 | 10 | 56µs | 10 | 52µs | return _uniq grep { defined and length } @sources; # spent 52µs making 10 calls to Path::IsDev::NegativeHeuristic::PerlINC::_uniq, avg 5µs/call |
| 50 | } | ||||
| 51 | |||||
| - - | |||||
| 58 | # spent 10.1ms (69µs+10.0) within Path::IsDev::NegativeHeuristic::PerlINC::excludes which was called 10 times, avg 1.01ms/call:
# 10 times (69µs+10.0ms) by Path::IsDev::Role::HeuristicSet::matches at line 68 of Path/IsDev/Role/HeuristicSet.pm, avg 1.01ms/call | ||||
| 59 | 10 | 4µs | my ( $self, $result_object ) = @_; | ||
| 60 | |||||
| 61 | 10 | 39µs | 20 | 10.0ms | return unless $self->fullpath_is_any( $result_object, $self->paths ); # spent 9.62ms making 10 calls to Path::IsDev::Role::Matcher::FullPath::Is::Any::fullpath_is_any, avg 962µs/call
# spent 398µs making 10 calls to Path::IsDev::NegativeHeuristic::PerlINC::paths, avg 40µs/call |
| 62 | 1 | 2µs | return 1; | ||
| 63 | } | ||||
| 64 | |||||
| 65 | 1 | 4µs | 1; | ||
| 66 | |||||
| 67 | __END__ |