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

Filename/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/File/ShareDir/ProjectDistDir.pm
StatementsExecuted 120 statements in 1.95ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
2215.50ms8.43msFile::ShareDir::ProjectDistDir::::_pathFile::ShareDir::ProjectDistDir::_path
1111.54ms3.76msFile::ShareDir::ProjectDistDir::::BEGIN@237File::ShareDir::ProjectDistDir::BEGIN@237
111390┬Ás4.84msFile::ShareDir::ProjectDistDir::::BEGIN@234File::ShareDir::ProjectDistDir::BEGIN@234
111320┬Ás751┬ÁsFile::ShareDir::ProjectDistDir::::BEGIN@235File::ShareDir::ProjectDistDir::BEGIN@235
11136┬Ás107┬ÁsFile::ShareDir::ProjectDistDir::::__ANON__[:676]File::ShareDir::ProjectDistDir::__ANON__[:676]
11133┬Ás118msFile::ShareDir::ProjectDistDir::::_get_cached_dist_dir_resultFile::ShareDir::ProjectDistDir::_get_cached_dist_dir_result
11125┬Ás36┬ÁsFile::ShareDir::ProjectDistDir::::build_dist_fileFile::ShareDir::ProjectDistDir::build_dist_file
11120┬Ás20┬ÁsFile::ShareDir::ProjectDistDir::::importFile::ShareDir::ProjectDistDir::import
11117┬Ás17┬ÁsPod::Wordlist::::BEGIN@1 Pod::Wordlist::BEGIN@1
11113┬Ás118msFile::ShareDir::ProjectDistDir::::__ANON__[:682]File::ShareDir::ProjectDistDir::__ANON__[:682]
66112┬Ás12┬ÁsFile::ShareDir::ProjectDistDir::::_get_defaultsFile::ShareDir::ProjectDistDir::_get_defaults
1119┬Ás23┬ÁsFile::ShareDir::ProjectDistDir::::BEGIN@257File::ShareDir::ProjectDistDir::BEGIN@257
1119┬Ás11┬ÁsPod::Wordlist::::BEGIN@4.5 Pod::Wordlist::BEGIN@4.5
1118┬Ás10┬ÁsFile::ShareDir::ProjectDistDir::::CORE:ftisFile::ShareDir::ProjectDistDir::CORE:ftis (opcode)
1118┬Ás124┬ÁsFile::ShareDir::ProjectDistDir::::BEGIN@236File::ShareDir::ProjectDistDir::BEGIN@236
1117┬Ás9┬ÁsFile::ShareDir::ProjectDistDir::::CORE:ftdirFile::ShareDir::ProjectDistDir::CORE:ftdir (opcode)
1117┬Ás20┬ÁsPod::Wordlist::::BEGIN@2.3 Pod::Wordlist::BEGIN@2.3
1117┬Ás13┬ÁsPod::Wordlist::::BEGIN@3.4 Pod::Wordlist::BEGIN@3.4
1117┬Ás8┬ÁsFile::ShareDir::ProjectDistDir::::CORE:ftereadFile::ShareDir::ProjectDistDir::CORE:fteread (opcode)
1115┬Ás5┬ÁsFile::ShareDir::ProjectDistDir::::_wrap_returnFile::ShareDir::ProjectDistDir::_wrap_return
1111┬Ás1┬ÁsFile::ShareDir::ProjectDistDir::::_debugFile::ShareDir::ProjectDistDir::_debug
0000s0sFile::ShareDir::ProjectDistDir::::__ANON__[:260]File::ShareDir::ProjectDistDir::__ANON__[:260]
0000s0sFile::ShareDir::ProjectDistDir::::__ANON__[:593]File::ShareDir::ProjectDistDir::__ANON__[:593]
0000s0sFile::ShareDir::ProjectDistDir::::__ANON__[:598]File::ShareDir::ProjectDistDir::__ANON__[:598]
0000s0sFile::ShareDir::ProjectDistDir::::__ANON__[:688]File::ShareDir::ProjectDistDir::__ANON__[:688]
0000s0sFile::ShareDir::ProjectDistDir::::_carpFile::ShareDir::ProjectDistDir::_carp
0000s0sFile::ShareDir::ProjectDistDir::::_croakFile::ShareDir::ProjectDistDir::_croak
0000s0sFile::ShareDir::ProjectDistDir::::_need_pathclassFile::ShareDir::ProjectDistDir::_need_pathclass
0000s0sFile::ShareDir::ProjectDistDir::::build_dist_dirFile::ShareDir::ProjectDistDir::build_dist_dir
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1239┬Ás117┬Ás
# spent 17┬Ás within Pod::Wordlist::BEGIN@1 which was called: # once (17┬Ás+0s) by Pod::Wordlist::BEGIN@5 at line 1
use 5.008;
# spent 17┬Ás making 1 call to Pod::Wordlist::BEGIN@1
2219┬Ás233┬Ás
# spent 20┬Ás (7+13) within Pod::Wordlist::BEGIN@2.3 which was called: # once (7┬Ás+13┬Ás) by Pod::Wordlist::BEGIN@5 at line 2
use strict;
# spent 20┬Ás making 1 call to Pod::Wordlist::BEGIN@2.3 # spent 13┬Ás making 1 call to strict::import
3218┬Ás219┬Ás
# spent 13┬Ás (7+6) within Pod::Wordlist::BEGIN@3.4 which was called: # once (7┬Ás+6┬Ás) by Pod::Wordlist::BEGIN@5 at line 3
use warnings;
# spent 13┬Ás making 1 call to Pod::Wordlist::BEGIN@3.4 # spent 6┬Ás making 1 call to warnings::import
42101┬Ás214┬Ás
# spent 11┬Ás (9+3) within Pod::Wordlist::BEGIN@4.5 which was called: # once (9┬Ás+3┬Ás) by Pod::Wordlist::BEGIN@5 at line 4
use utf8;
# spent 11┬Ás making 1 call to Pod::Wordlist::BEGIN@4.5 # spent 3┬Ás making 1 call to utf8::import
5
6package File::ShareDir::ProjectDistDir;
71600ns$File::ShareDir::ProjectDistDir::VERSION = '1.000002';
8# ABSTRACT: Simple set-and-forget using of a '/share' directory in your projects root
9
101200nsour $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
11
- -
234273┬Ás14.84ms
# spent 4.84ms (390┬Ás+4.45) within File::ShareDir::ProjectDistDir::BEGIN@234 which was called: # once (390┬Ás+4.45ms) by Pod::Wordlist::BEGIN@5 at line 234
use Path::IsDev qw();
# spent 4.84ms making 1 call to File::ShareDir::ProjectDistDir::BEGIN@234
235286┬Ás2871┬Ás
# spent 751┬Ás (320+430) within File::ShareDir::ProjectDistDir::BEGIN@235 which was called: # once (320┬Ás+430┬Ás) by Pod::Wordlist::BEGIN@5 at line 235
use Path::FindDev qw(find_dev);
# spent 751┬Ás making 1 call to File::ShareDir::ProjectDistDir::BEGIN@235 # spent 120┬Ás making 1 call to Sub::Exporter::__ANON__[Sub/Exporter.pm:337]
236225┬Ás2240┬Ás
# spent 124┬Ás (8+116) within File::ShareDir::ProjectDistDir::BEGIN@236 which was called: # once (8┬Ás+116┬Ás) by Pod::Wordlist::BEGIN@5 at line 236
use Sub::Exporter qw(build_exporter);
# spent 124┬Ás making 1 call to File::ShareDir::ProjectDistDir::BEGIN@236 # spent 116┬Ás making 1 call to Sub::Exporter::__ANON__[Sub/Exporter.pm:337]
2372181┬Ás13.76ms
# spent 3.76ms (1.54+2.22) within File::ShareDir::ProjectDistDir::BEGIN@237 which was called: # once (1.54ms+2.22ms) by Pod::Wordlist::BEGIN@5 at line 237
use File::ShareDir qw();
# spent 3.76ms making 1 call to File::ShareDir::ProjectDistDir::BEGIN@237
238
23918┬Ás1202┬Ásmy ($exporter) = build_exporter(
# spent 202┬Ás making 1 call to Sub::Exporter::build_exporter
240 {
241 exports => [ dist_dir => \&build_dist_dir, dist_file => \&build_dist_file ],
242 groups => {
243 all => [qw( dist_dir dist_file )],
244 'default' => [qw( dist_dir dist_file )],
245 },
246 collectors => [ 'defaults', ],
247 },
248);
2491400nsmy $env_key = 'FILE_SHAREDIR_PROJECTDISTDIR_DEBUG';
250
251## no critic (Subroutines::ProhibitSubroutinePrototypes)
25216┬Ás
# spent 1┬Ás within File::ShareDir::ProjectDistDir::_debug which was called: # once (1┬Ás+0s) by File::ShareDir::ProjectDistDir::_get_cached_dist_dir_result at line 548
sub _debug($) { }
253## use critic
254
2551700nsif ( $ENV{$env_key} ) {
256 ## no critic (ProtectPrivateVars,TestingAndDebugging::ProhibitNoWarnings)
25721.18ms237┬Ás
# spent 23┬Ás (9+14) within File::ShareDir::ProjectDistDir::BEGIN@257 which was called: # once (9┬Ás+14┬Ás) by Pod::Wordlist::BEGIN@5 at line 257
no warnings 'redefine';
# spent 23┬Ás making 1 call to File::ShareDir::ProjectDistDir::BEGIN@257 # spent 14┬Ás making 1 call to warnings::unimport
258 *File::ShareDir::ProjectDistDir::_debug = sub ($) {
259 *STDERR->printf( qq{[ProjectDistDir] %s\n}, $_[0] );
260 };
261 $Path::IsDev::DEBUG = 1;
262 $Path::FindDev::DEBUG = 1;
263}
264
265## no critic (RequireArgUnpacking)
266sub _croak { require Carp; goto &Carp::croak }
267sub _carp { require Carp; goto &Carp::carp }
268
269476┬Ás246┬Ás
# spent 8.43ms (5.50+2.93) within File::ShareDir::ProjectDistDir::_path which was called 2 times, avg 4.22ms/call: # once (5.50ms+2.93ms) by File::ShareDir::ProjectDistDir::_get_cached_dist_dir_result at line 549 # once (3┬Ás+0s) by File::ShareDir::ProjectDistDir::__ANON__[/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/File/ShareDir/ProjectDistDir.pm:676] at line 667
sub _path { require Path::Tiny; goto &Path::Tiny::path }
# spent 46┬Ás making 2 calls to Path::Tiny::path, avg 23┬Ás/call
270
271sub _need_pathclass {
272 for my $package ( q[], q[::File], q[::Dir] ) {
273 ## no critic (Variables::RequireInitializationForLocalVars)
274 local $@ = undef;
275 my $code = sprintf 'require %s%s;1', 'Path::Class', $package;
276 ## no critic (BuiltinFunctions::ProhibitStringyEval,Lax::ProhibitStringyEval::ExceptForRequire)
277 next if eval $code;
278 my $err = $@;
279 _carp('Path::Class is not installed.');
280 ## no critic (RequireCarping, ErrorHandling::RequireUseOfExceptions)
281 die $err;
282 }
283 return 1;
284}
285
- -
413
# spent 20┬Ás within File::ShareDir::ProjectDistDir::import which was called: # once (20┬Ás+0s) by Pod::Wordlist::BEGIN@5 at line 6 of Pod/Wordlist.pm
sub import {
41411┬Ás my ( $class, @args ) = @_;
415
41611┬Ás my ( undef, $xfilename, undef ) = caller;
417
41811┬Ás my $defaults = {
419 filename => $xfilename,
420 projectdir => 'share',
421 pathclass => undef,
422 strict => undef,
423 };
424
4251200ns if ( not @args ) {
426 @_ = ( $class, ':all', defaults => $defaults );
427 goto $exporter;
428 }
429
43012┬Ás for ( 0 .. $#args - 1 ) {
4312100ns my ( $key, $value );
43221┬Ás next unless $key = $args[$_] and $value = $args[ $_ + 1 ];
433
4342400ns if ( 'defaults' eq $key ) {
4351900ns $defaults = $value;
4361300ns undef $args[$_];
4371200ns undef $args[ $_ + 1 ];
4381300ns next;
439 }
4401700ns for my $setting (qw( projectdir filename distname pathclass pathtiny strict )) {
44161┬Ás if ( $key eq $setting and not ref $value ) {
442 $defaults->{$setting} = $value;
443 undef $args[$_];
444 undef $args[ $_ + 1 ];
445 last;
446 }
447 }
448 }
449
4501900ns $defaults->{filename} = $xfilename if not defined $defaults->{filename};
4511500ns $defaults->{projectdir} = 'share' if not defined $defaults->{projectdir};
452
4531200ns if ( defined $defaults->{pathclass} ) {
454 _carp( 'Path::Class support depecated and will be removed from a future release.' . ' see Documentation for details' );
455 _need_pathclass();
456 }
457
45812┬Ás @_ = ( $class, ( grep { defined } @args ), 'defaults' => $defaults );
459
46016┬Ás1185┬Ás goto $exporter;
# spent 185┬Ás making 1 call to Sub::Exporter::__ANON__[Sub/Exporter.pm:337]
461}
462
- -
510
# spent 12┬Ás within File::ShareDir::ProjectDistDir::_get_defaults which was called 6 times, avg 2┬Ás/call: # once (2┬Ás+0s) by File::ShareDir::ProjectDistDir::build_dist_file at line 651 # once (2┬Ás+0s) by File::ShareDir::ProjectDistDir::build_dist_file at line 656 # once (2┬Ás+0s) by File::ShareDir::ProjectDistDir::build_dist_file at line 653 # once (2┬Ás+0s) by File::ShareDir::ProjectDistDir::build_dist_file at line 655 # once (2┬Ás+0s) by File::ShareDir::ProjectDistDir::build_dist_file at line 652 # once (2┬Ás+0s) by File::ShareDir::ProjectDistDir::build_dist_file at line 658
sub _get_defaults {
51161┬Ás my ( $field, $arg, $col ) = @_;
51260s my $result;
51363┬Ás $result = $col->{defaults}->{$field} if $col->{defaults}->{$field};
5146200ns $result = $arg->{$field} if $arg->{$field};
515618┬Ás return $result;
516}
517
518
# spent 5┬Ás within File::ShareDir::ProjectDistDir::_wrap_return which was called: # once (5┬Ás+0s) by File::ShareDir::ProjectDistDir::__ANON__[/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/File/ShareDir/ProjectDistDir.pm:676] at line 675
sub _wrap_return {
5191800ns my ( $type, $value ) = @_;
5201300ns if ( not $type ) {
521 return $value unless ref $value;
522 return "$value";
523 }
5241700ns if ( 'pathtiny' eq $type ) {
52515┬Ás return $value if 'Path::Tiny' eq ref $value;
526 return _path($value);
527 }
528 if ( 'pathclassdir' eq $type ) {
529 return $value if 'Path::Class::Dir' eq ref $value;
530 _need_pathclass;
531 return Path::Class::Dir->new("$value");
532 }
533 if ( 'pathclassfile' eq $type ) {
534 return $value if 'Path::Class::File' eq ref $value;
535 _need_pathclass;
536 return Path::Class::File->new("$value");
537 }
538 return _croak("Unknown return type $type");
539}
540
5411100nsour %DIST_DIR_CACHE;
542
543
# spent 118ms (33┬Ás+118) within File::ShareDir::ProjectDistDir::_get_cached_dist_dir_result which was called: # once (33┬Ás+118ms) by File::ShareDir::ProjectDistDir::__ANON__[/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/File/ShareDir/ProjectDistDir.pm:682] at line 680
sub _get_cached_dist_dir_result {
54411┬Ás my ( undef, $filename, $projectdir, $distname, $strict ) = @_;
5451300ns if ( defined $DIST_DIR_CACHE{$distname} ) {
546 return $DIST_DIR_CACHE{$distname};
547 }
54812┬Ás11┬Ás _debug( 'Working on: ' . $filename );
# spent 1┬Ás making 1 call to File::ShareDir::ProjectDistDir::_debug
54917┬Ás3118ms my $dev = find_dev( _path($filename)->parent );
# spent 109ms making 1 call to Path::FindDev::__ANON__[Path/FindDev.pm:81] # spent 8.43ms making 1 call to File::ShareDir::ProjectDistDir::_path # spent 68┬Ás making 1 call to Path::Tiny::parent
550
5511400ns if ( not defined $dev ) {
552 ## no critic (Variables::ProhibitPackageVars)
5531600ns local $Carp::CarpLevel = $Carp::CarpLevel + 1;
55417┬Ás182┬Ás return File::ShareDir::dist_dir($distname);
# spent 82┬Ás making 1 call to File::ShareDir::dist_dir
555 }
556
557 my $devel_share_dir = $dev->child($projectdir);
558
559 if ($strict) {
560 $devel_share_dir = $devel_share_dir->child( 'dist', $distname );
561 }
562 if ( -d $devel_share_dir ) {
563 _debug( 'ISDEV : exists : <devroot>/' . $devel_share_dir->relative($dev) );
564 return ( $DIST_DIR_CACHE{$distname} = $devel_share_dir );
565 }
566 _debug( 'ISPROD: does not exist : <devroot>/' . $devel_share_dir->relative($dev) );
567 ## no critic (Variables::ProhibitPackageVars)
568 local $Carp::CarpLevel = $Carp::CarpLevel + 1;
569 return File::ShareDir::dist_dir($distname);
570}
571
572sub build_dist_dir {
573 my ( $class, undef, $arg, $col ) = @_;
574
575 my $projectdir = _get_defaults( projectdir => $arg, $col );
576 my $pathclass = _get_defaults( pathclass => $arg, $col );
577 my $pathtiny = _get_defaults( pathtiny => $arg, $col );
578 my $strict = _get_defaults( strict => $arg, $col );
579 my $filename = _get_defaults( filename => $arg, $col );
580
581 my $wrap_return_type;
582
583 if ($pathclass) { $wrap_return_type = 'pathclassdir' }
584 if ($pathtiny) { $wrap_return_type = 'pathtiny' }
585
586 my $distname = _get_defaults( distname => $arg, $col );
587
588 if ( not $distname ) {
589 return sub {
590 my ($udistname) = @_;
591 my $distdir = $class->_get_cached_dist_dir_result( $filename, $projectdir, $udistname, $strict );
592 return _wrap_return( $wrap_return_type, $distdir );
593 };
594 }
595 return sub {
596 my $distdir = $class->_get_cached_dist_dir_result( $filename, $projectdir, $distname, $strict );
597 return _wrap_return( $wrap_return_type, $distdir );
598 };
599}
600
- -
648
# spent 36┬Ás (25+11) within File::ShareDir::ProjectDistDir::build_dist_file which was called: # once (25┬Ás+11┬Ás) by Sub::Exporter::default_generator at line 419 of Sub/Exporter.pm
sub build_dist_file {
6491500ns my ( $class, undef, $arg, $col ) = @_;
650
65111┬Ás12┬Ás my $projectdir = _get_defaults( projectdir => $arg, $col );
# spent 2┬Ás making 1 call to File::ShareDir::ProjectDistDir::_get_defaults
6521900ns12┬Ás my $pathclass = _get_defaults( pathclass => $arg, $col );
# spent 2┬Ás making 1 call to File::ShareDir::ProjectDistDir::_get_defaults
6531800ns12┬Ás my $pathtiny = _get_defaults( pathtiny => $arg, $col );
# spent 2┬Ás making 1 call to File::ShareDir::ProjectDistDir::_get_defaults
654
6551900ns12┬Ás my $strict = _get_defaults( strict => $arg, $col );
# spent 2┬Ás making 1 call to File::ShareDir::ProjectDistDir::_get_defaults
6561900ns12┬Ás my $filename = _get_defaults( filename => $arg, $col );
# spent 2┬Ás making 1 call to File::ShareDir::ProjectDistDir::_get_defaults
657
6581900ns12┬Ás my $distname = _get_defaults( distname => $arg, $col );
# spent 2┬Ás making 1 call to File::ShareDir::ProjectDistDir::_get_defaults
659
66010s my $wrap_return_type;
661
66210s if ($pathclass) { $wrap_return_type = 'pathclassfile' }
6631200ns if ($pathtiny) { $wrap_return_type = 'pathtiny' }
664
665
# spent 107┬Ás (36+72) within File::ShareDir::ProjectDistDir::__ANON__[/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/File/ShareDir/ProjectDistDir.pm:676] which was called: # once (36┬Ás+72┬Ás) by File::ShareDir::ProjectDistDir::__ANON__[/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/File/ShareDir/ProjectDistDir.pm:682] at line 681
my $check_file = sub {
6661800ns my ( $distdir, $wanted_file ) = @_;
66714┬Ás224┬Ás my $child = _path($distdir)->child($wanted_file);
# spent 22┬Ás making 1 call to Path::Tiny::child # spent 3┬Ás making 1 call to File::ShareDir::ProjectDistDir::_path
668112┬Ás211┬Ás return unless -e $child;
# spent 10┬Ás making 1 call to File::ShareDir::ProjectDistDir::CORE:ftis # spent 1┬Ás making 1 call to Path::Tiny::__ANON__[Path/Tiny.pm:31]
669110┬Ás210┬Ás if ( -d $child ) {
# spent 9┬Ás making 1 call to File::ShareDir::ProjectDistDir::CORE:ftdir # spent 1┬Ás making 1 call to Path::Tiny::__ANON__[Path/Tiny.pm:31]
670 return _croak("Found dist_file '$child', but is a dir");
671 }
672110┬Ás29┬Ás if ( not -r $child ) {
# spent 8┬Ás making 1 call to File::ShareDir::ProjectDistDir::CORE:fteread # spent 1┬Ás making 1 call to Path::Tiny::__ANON__[Path/Tiny.pm:31]
673 return _croak("File '$child', no read permissions");
674 }
67516┬Ás15┬Ás return _wrap_return( $wrap_return_type, $child );
# spent 5┬Ás making 1 call to File::ShareDir::ProjectDistDir::_wrap_return
67612┬Ás };
6771100ns if ( not $distname ) {
678
# spent 118ms (13┬Ás+118) within File::ShareDir::ProjectDistDir::__ANON__[/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/File/ShareDir/ProjectDistDir.pm:682] which was called: # once (13┬Ás+118ms) by Pod::Spell::BEGIN@10 at line 22 of Pod/Wordlist.pm
return sub {
6791700ns my ( $udistname, $wanted_file ) = @_;
68012┬Ás1118ms my $distdir = $class->_get_cached_dist_dir_result( $filename, $projectdir, $udistname, $strict );
68116┬Ás1107┬Ás return $check_file->( $distdir, $wanted_file );
68215┬Ás };
683 }
684 return sub {
685 my ($wanted_file) = @_;
686 my $distdir = $class->_get_cached_dist_dir_result( $filename, $projectdir, $distname, $strict );
687 return $check_file->( $distdir, $wanted_file );
688 };
689}
690
69117┬Ás1;
692
693__END__
 
# spent 9┬Ás (7+1) within File::ShareDir::ProjectDistDir::CORE:ftdir which was called: # once (7┬Ás+1┬Ás) by File::ShareDir::ProjectDistDir::__ANON__[/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/File/ShareDir/ProjectDistDir.pm:676] at line 669
sub File::ShareDir::ProjectDistDir::CORE:ftdir; # opcode
# spent 8┬Ás (7+1) within File::ShareDir::ProjectDistDir::CORE:fteread which was called: # once (7┬Ás+1┬Ás) by File::ShareDir::ProjectDistDir::__ANON__[/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/File/ShareDir/ProjectDistDir.pm:676] at line 672
sub File::ShareDir::ProjectDistDir::CORE:fteread; # opcode
# spent 10┬Ás (8+1) within File::ShareDir::ProjectDistDir::CORE:ftis which was called: # once (8┬Ás+1┬Ás) by File::ShareDir::ProjectDistDir::__ANON__[/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/File/ShareDir/ProjectDistDir.pm:676] at line 668
sub File::ShareDir::ProjectDistDir::CORE:ftis; # opcode