← 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/Path/IsDev.pm
StatementsExecuted 19 statements in 427µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
1111.92ms4.39msPath::IsDev::::BEGIN@261 Path::IsDev::BEGIN@261
11114µs14µsFile::ShareDir::ProjectDistDir::::BEGIN@1File::ShareDir::ProjectDistDir::BEGIN@1
1117µs10µsFile::ShareDir::ProjectDistDir::::BEGIN@3File::ShareDir::ProjectDistDir::BEGIN@3
1117µs8µsFile::ShareDir::ProjectDistDir::::BEGIN@4File::ShareDir::ProjectDistDir::BEGIN@4
1116µs17µsFile::ShareDir::ProjectDistDir::::BEGIN@2File::ShareDir::ProjectDistDir::BEGIN@2
1114µs4µsPath::IsDev::::_build_is_dev Path::IsDev::_build_is_dev
0000s0sPath::IsDev::::__ANON__[:293] Path::IsDev::__ANON__[:293]
0000s0sPath::IsDev::::debug Path::IsDev::debug
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1235µs114µs
# spent 14µs within File::ShareDir::ProjectDistDir::BEGIN@1 which was called: # once (14µs+0s) by File::ShareDir::ProjectDistDir::BEGIN@234 at line 1
use 5.008; # utf8
# spent 14µs making 1 call to File::ShareDir::ProjectDistDir::BEGIN@1
2218µs228µs
# spent 17µs (6+11) within File::ShareDir::ProjectDistDir::BEGIN@2 which was called: # once (6µs+11µs) by File::ShareDir::ProjectDistDir::BEGIN@234 at line 2
use strict;
# spent 17µs making 1 call to File::ShareDir::ProjectDistDir::BEGIN@2 # spent 11µs making 1 call to strict::import
3218µs214µs
# spent 10µs (7+4) within File::ShareDir::ProjectDistDir::BEGIN@3 which was called: # once (7µs+4µs) by File::ShareDir::ProjectDistDir::BEGIN@234 at line 3
use warnings;
# spent 10µs making 1 call to File::ShareDir::ProjectDistDir::BEGIN@3 # spent 4µs making 1 call to warnings::import
42100µs29µs
# spent 8µs (7+1) within File::ShareDir::ProjectDistDir::BEGIN@4 which was called: # once (7µs+1µs) by File::ShareDir::ProjectDistDir::BEGIN@234 at line 4
use utf8;
# spent 8µs making 1 call to File::ShareDir::ProjectDistDir::BEGIN@4 # spent 1µs making 1 call to utf8::import
5
6package Path::IsDev;
71600ns$Path::IsDev::VERSION = '1.001000';
8# ABSTRACT: Determine if a given Path resembles a development source tree
9
101200nsour $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
11
- -
2612240µs24.65ms
# spent 4.39ms (1.92+2.47) within Path::IsDev::BEGIN@261 which was called: # once (1.92ms+2.47ms) by File::ShareDir::ProjectDistDir::BEGIN@234 at line 261
use Sub::Exporter -setup => { exports => [ is_dev => \&_build_is_dev, ], };
# spent 4.39ms making 1 call to Path::IsDev::BEGIN@261 # spent 262µs making 1 call to Sub::Exporter::__ANON__[Sub/Exporter.pm:337]
262
2631200nsour $ENV_KEY_DEBUG = 'PATH_ISDEV_DEBUG';
264
2651800nsour $DEBUG = ( exists $ENV{$ENV_KEY_DEBUG} ? $ENV{$ENV_KEY_DEBUG} : undef );
266
- -
277sub debug {
278 return unless $DEBUG;
279 return *STDERR->printf( qq{[Path::IsDev] %s\n}, shift );
280}
281
282
# spent 4µs within Path::IsDev::_build_is_dev which was called: # once (4µs+0s) by File::ShareDir::ProjectDistDir::BEGIN@234 at line 319
sub _build_is_dev {
2831500ns my ( undef, undef, $arg ) = @_;
284
2851100ns my $isdev_object;
286 return sub {
287 my ($path) = @_;
288 $isdev_object ||= do {
289 require Path::IsDev::Object;
290 Path::IsDev::Object->new( %{ $arg || {} } );
291 };
292 return $isdev_object->matches($path);
29317µs };
294}
295
- -
31913µs14µs*is_dev = _build_is_dev( 'Path::IsDev', 'is_dev', {} );
# spent 4µs making 1 call to Path::IsDev::_build_is_dev
320
32114µs1;
322
323__END__