← Index
NYTProf Performance Profile   « block view • line view • sub view »
For C:/lo/libo-master/solenv/bin/make_installer.pl
  Run on Mon Sep 24 00:52:54 2012
Reported on Mon Sep 24 07:34:38 2012

Filename/usr/lib/perl5/site_perl/5.14/Archive/Zip/DirectoryMember.pm
StatementsExecuted 30393 statements in 356ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
138111263ms263msArchive::Zip::DirectoryMember::::CORE:utimeArchive::Zip::DirectoryMember::CORE:utime (opcode)
55243161.7ms85.9msArchive::Zip::DirectoryMember::::fileNameArchive::Zip::DirectoryMember::fileName
13811139.5ms1.94sArchive::Zip::DirectoryMember::::extractToFileNamedArchive::Zip::DirectoryMember::extractToFileNamed
111658µs668µsArchive::Zip::DirectoryMember::::BEGIN@3Archive::Zip::DirectoryMember::BEGIN@3
11120µs20µsArchive::Zip::DirectoryMember::::BEGIN@8Archive::Zip::DirectoryMember::BEGIN@8
11115µs90µsArchive::Zip::DirectoryMember::::BEGIN@4Archive::Zip::DirectoryMember::BEGIN@4
11115µs379µsArchive::Zip::DirectoryMember::::BEGIN@13Archive::Zip::DirectoryMember::BEGIN@13
11115µs86µsArchive::Zip::DirectoryMember::::BEGIN@6Archive::Zip::DirectoryMember::BEGIN@6
0000s0sArchive::Zip::DirectoryMember::::_newNamedArchive::Zip::DirectoryMember::_newNamed
0000s0sArchive::Zip::DirectoryMember::::contentsArchive::Zip::DirectoryMember::contents
0000s0sArchive::Zip::DirectoryMember::::externalFileNameArchive::Zip::DirectoryMember::externalFileName
0000s0sArchive::Zip::DirectoryMember::::isDirectoryArchive::Zip::DirectoryMember::isDirectory
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Archive::Zip::DirectoryMember;
2
3278µs2678µs
# spent 668µs (658+10) within Archive::Zip::DirectoryMember::BEGIN@3 which was called: # once (658µs+10µs) by installer::archivefiles::BEGIN@30 at line 3
use strict;
# spent 668µs making 1 call to Archive::Zip::DirectoryMember::BEGIN@3 # spent 10µs making 1 call to strict::import
4267µs2166µs
# spent 90µs (15+75) within Archive::Zip::DirectoryMember::BEGIN@4 which was called: # once (15µs+75µs) by installer::archivefiles::BEGIN@30 at line 4
use File::Path;
# spent 90µs making 1 call to Archive::Zip::DirectoryMember::BEGIN@4 # spent 75µs making 1 call to Exporter::import
5
6290µs2156µs
# spent 86µs (15+71) within Archive::Zip::DirectoryMember::BEGIN@6 which was called: # once (15µs+71µs) by installer::archivefiles::BEGIN@30 at line 6
use vars qw( $VERSION @ISA );
# spent 86µs making 1 call to Archive::Zip::DirectoryMember::BEGIN@6 # spent 71µs making 1 call to vars::import
7
8
# spent 20µs within Archive::Zip::DirectoryMember::BEGIN@8 which was called: # once (20µs+0s) by installer::archivefiles::BEGIN@30 at line 11
BEGIN {
9220µs $VERSION = '1.30';
10 @ISA = qw( Archive::Zip::Member );
11162µs120µs}
# spent 20µs making 1 call to Archive::Zip::DirectoryMember::BEGIN@8
12
131364µs
# spent 379µs (15+364) within Archive::Zip::DirectoryMember::BEGIN@13 which was called: # once (15µs+364µs) by installer::archivefiles::BEGIN@30 at line 16
use Archive::Zip qw(
# spent 364µs making 1 call to Exporter::import
14 :ERROR_CODES
15 :UTILITY_METHODS
162772µs1379µs);
# spent 379µs making 1 call to Archive::Zip::DirectoryMember::BEGIN@13
17
18sub _newNamed {
19 my $class = shift;
20 my $fileName = shift; # FS name
21 my $newName = shift; # Zip name
22 $newName = _asZipDirName($fileName) unless $newName;
23 my $self = $class->new(@_);
24 $self->{'externalFileName'} = $fileName;
25 $self->fileName($newName);
26
27 if ( -e $fileName ) {
28
29 # -e does NOT do a full stat, so we need to do one now
30 if ( -d _ ) {
31 my @stat = stat(_);
32 $self->unixFileAttributes( $stat[2] );
33 my $mod_t = $stat[9];
34 if ( $^O eq 'MSWin32' and !$mod_t ) {
35 $mod_t = time();
36 }
37 $self->setLastModFileDateTimeFromUnix($mod_t);
38
39 } else { # hmm.. trying to add a non-directory?
40 _error( $fileName, ' exists but is not a directory' );
41 return undef;
42 }
43 } else {
44 $self->unixFileAttributes( $self->DEFAULT_DIRECTORY_PERMISSIONS );
45 $self->setLastModFileDateTimeFromUnix( time() );
46 }
47 return $self;
48}
49
50sub externalFileName {
51 shift->{'externalFileName'};
52}
53
54sub isDirectory {
55 return 1;
56}
57
58
# spent 1.94s (39.5ms+1.90) within Archive::Zip::DirectoryMember::extractToFileNamed which was called 1381 times, avg 1.40ms/call: # 1381 times (39.5ms+1.90s) by Archive::Zip::Archive::extractTree at line 822 of Archive/Zip/Archive.pm, avg 1.40ms/call
sub extractToFileNamed {
598286297ms my $self = shift;
60 my $name = shift; # local FS name
61138120.2ms my $attribs = $self->unixFileAttributes() & 07777;
# spent 20.2ms making 1381 calls to Archive::Zip::Member::unixFileAttributes, avg 15µs/call
6213811.21s mkpath( $name, 0, $attribs ); # croaks on error
# spent 1.21s making 1381 calls to File::Path::mkpath, avg 879µs/call
634143664ms utime( $self->lastModTime(), $self->lastModTime(), $name );
# spent 401ms making 2762 calls to Archive::Zip::Member::lastModTime, avg 145µs/call # spent 263ms making 1381 calls to Archive::Zip::DirectoryMember::CORE:utime, avg 190µs/call
64 return AZ_OK;
65}
66
67
# spent 85.9ms (61.7+24.1) within Archive::Zip::DirectoryMember::fileName which was called 5524 times, avg 16µs/call: # 2762 times (27.9ms+11.7ms) by Archive::Zip::Archive::memberNames at line 72 of Archive/Zip/Archive.pm, avg 14µs/call # 1381 times (20.1ms+6.90ms) by Archive::Zip::Archive::extractTree at line 818 of Archive/Zip/Archive.pm, avg 20µs/call # 1381 times (13.8ms+5.56ms) by Archive::Zip::Archive::membersMatching at line 88 of Archive/Zip/Archive.pm, avg 14µs/call
sub fileName {
682209658.0ms my $self = shift;
69 my $newName = shift;
70 $newName =~ s{/?$}{/} if defined($newName);
71552424.1ms return $self->SUPER::fileName($newName);
# spent 24.1ms making 5524 calls to Archive::Zip::Member::fileName, avg 4µs/call
72}
73
74# So people don't get too confused. This way it looks like the problem
75# is in their code...
76sub contents {
77 return wantarray ? ( undef, AZ_OK ) : undef;
78}
79
8018µs1;
 
# spent 263ms within Archive::Zip::DirectoryMember::CORE:utime which was called 1381 times, avg 190µs/call: # 1381 times (263ms+0s) by Archive::Zip::DirectoryMember::extractToFileNamed at line 63, avg 190µs/call
sub Archive::Zip::DirectoryMember::CORE:utime; # opcode