← 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/FileMember.pm
StatementsExecuted 496730 statements in 1.67s
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
101011181732ms4.73sArchive::Zip::FileMember::::fhArchive::Zip::FileMember::fh
3518242659ms926msArchive::Zip::FileMember::::endReadArchive::Zip::FileMember::endRead
998211171ms3.72sArchive::Zip::FileMember::::_openFileArchive::Zip::FileMember::_openFile
13811157.4ms62.4msArchive::Zip::FileMember::::_becomeArchive::Zip::FileMember::_become
199642255.5ms55.5msArchive::Zip::FileMember::::externalFileNameArchive::Zip::FileMember::externalFileName
111219µs225µsArchive::Zip::FileMember::::BEGIN@3Archive::Zip::FileMember::BEGIN@3
11121µs21µsArchive::Zip::FileMember::::BEGIN@6Archive::Zip::FileMember::BEGIN@6
11113µs300µsArchive::Zip::FileMember::::BEGIN@11Archive::Zip::FileMember::BEGIN@11
11113µs86µsArchive::Zip::FileMember::::BEGIN@4Archive::Zip::FileMember::BEGIN@4
0000s0sArchive::Zip::FileMember::::_usesFileNamedArchive::Zip::FileMember::_usesFileNamed
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::FileMember;
2
3265µs2232µs
# spent 225µs (219+7) within Archive::Zip::FileMember::BEGIN@3 which was called: # once (219µs+7µs) by installer::archivefiles::BEGIN@30 at line 3
use strict;
# spent 225µs making 1 call to Archive::Zip::FileMember::BEGIN@3 # spent 7µs making 1 call to strict::import
4280µs2159µs
# spent 86µs (13+73) within Archive::Zip::FileMember::BEGIN@4 which was called: # once (13µs+73µs) by installer::archivefiles::BEGIN@30 at line 4
use vars qw( $VERSION @ISA );
# spent 86µs making 1 call to Archive::Zip::FileMember::BEGIN@4 # spent 73µs making 1 call to vars::import
5
6
# spent 21µs within Archive::Zip::FileMember::BEGIN@6 which was called: # once (21µs+0s) by installer::archivefiles::BEGIN@30 at line 9
BEGIN {
7221µs $VERSION = '1.30';
8 @ISA = qw ( Archive::Zip::Member );
9154µs121µs}
# spent 21µs making 1 call to Archive::Zip::FileMember::BEGIN@6
10
111287µs
# spent 300µs (13+287) within Archive::Zip::FileMember::BEGIN@11 which was called: # once (13µs+287µs) by installer::archivefiles::BEGIN@30 at line 13
use Archive::Zip qw(
# spent 287µs making 1 call to Exporter::import
12 :UTILITY_METHODS
132529µs1300µs);
# spent 300µs making 1 call to Archive::Zip::FileMember::BEGIN@11
14
15
# spent 55.5ms within Archive::Zip::FileMember::externalFileName which was called 19964 times, avg 3µs/call: # 9982 times (27.9ms+0s) by Archive::Zip::FileMember::_openFile at line 38, avg 3µs/call # 9982 times (27.6ms+0s) by Archive::Zip::ZipFileMember::_seekToLocalHeader at line 71 of Archive/Zip/ZipFileMember.pm, avg 3µs/call
sub externalFileName {
161996487.2ms shift->{'externalFileName'};
17}
18
19# Return true if I depend on the named file
20sub _usesFileNamed {
21 my $self = shift;
22 my $fileName = shift;
23 my $xfn = $self->externalFileName();
24 return undef if ref($xfn);
25 return $xfn eq $fileName;
26}
27
28
# spent 4.73s (732ms+3.99) within Archive::Zip::FileMember::fh which was called 101011 times, avg 47µs/call: # 10349 times (75.5ms+32.4ms) by Archive::Zip::ZipFileMember::_readRawChunk at line 411 of Archive/Zip/ZipFileMember.pm, avg 10µs/call # 9982 times (72.8ms+31.8ms) by Archive::Zip::ZipFileMember::_readCentralDirectoryFileHeader at line 319 of Archive/Zip/ZipFileMember.pm, avg 10µs/call # 9982 times (72.6ms+28.5ms) by Archive::Zip::ZipFileMember::_seekToLocalHeader at line 71 of Archive/Zip/ZipFileMember.pm, avg 10µs/call # 9982 times (69.8ms+29.4ms) by Archive::Zip::ZipFileMember::_seekToLocalHeader at line 68 of Archive/Zip/ZipFileMember.pm, avg 10µs/call # 8601 times (62.0ms+3.21s) by Archive::Zip::ZipFileMember::rewindData at line 384 of Archive/Zip/ZipFileMember.pm, avg 381µs/call # 8601 times (67.3ms+31.1ms) by Archive::Zip::ZipFileMember::rewindData at line 386 of Archive/Zip/ZipFileMember.pm, avg 11µs/call # 8601 times (62.7ms+25.3ms) by Archive::Zip::ZipFileMember::_skipLocalFileHeader at line 156 of Archive/Zip/ZipFileMember.pm, avg 10µs/call # 8601 times (61.2ms+26.5ms) by Archive::Zip::ZipFileMember::_skipLocalFileHeader at line 137 of Archive/Zip/ZipFileMember.pm, avg 10µs/call # 8601 times (62.1ms+24.8ms) by Archive::Zip::ZipFileMember::_skipLocalFileHeader at line 169 of Archive/Zip/ZipFileMember.pm, avg 10µs/call # 8601 times (60.4ms+24.5ms) by Archive::Zip::ZipFileMember::rewindData at line 399 of Archive/Zip/ZipFileMember.pm, avg 10µs/call # 1381 times (9.21ms+505ms) by Archive::Zip::ZipFileMember::_become at line 104 of Archive/Zip/ZipFileMember.pm, avg 373µs/call # 1381 times (10.6ms+4.59ms) by Archive::Zip::ZipFileMember::_become at line 105 of Archive/Zip/ZipFileMember.pm, avg 11µs/call # 1381 times (10.1ms+4.29ms) by Archive::Zip::ZipFileMember::_readLocalFileHeader at line 240 of Archive/Zip/ZipFileMember.pm, avg 10µs/call # 1381 times (10.2ms+4.16ms) by Archive::Zip::ZipFileMember::_readLocalFileHeader at line 225 of Archive/Zip/ZipFileMember.pm, avg 10µs/call # 1381 times (10.0ms+4.25ms) by Archive::Zip::ZipFileMember::_readLocalFileHeader at line 206 of Archive/Zip/ZipFileMember.pm, avg 10µs/call # 1381 times (9.74ms+4.13ms) by Archive::Zip::ZipFileMember::_become at line 108 of Archive/Zip/ZipFileMember.pm, avg 10µs/call # 822 times (5.87ms+2.38ms) by Archive::Zip::ZipFileMember::_skipLocalFileHeader at line 162 of Archive/Zip/ZipFileMember.pm, avg 10µs/call # 2 times (14µs+6µs) by Archive::Zip::ZipFileMember::_readLocalFileHeader at line 233 of Archive/Zip/ZipFileMember.pm, avg 10µs/call
sub fh {
29303033729ms my $self = shift;
301010113.99s $self->_openFile()
# spent 3.72s making 9982 calls to Archive::Zip::FileMember::_openFile, avg 372µs/call # spent 278ms making 91029 calls to IO::Handle::opened, avg 3µs/call
31 if !defined( $self->{'fh'} ) || !$self->{'fh'}->opened();
32 return $self->{'fh'};
33}
34
35# opens my file handle from my file name
36
# spent 3.72s (171ms+3.55) within Archive::Zip::FileMember::_openFile which was called 9982 times, avg 372µs/call: # 9982 times (171ms+3.55s) by Archive::Zip::FileMember::fh at line 30, avg 372µs/call
sub _openFile {
3759892147ms my $self = shift;
38199643.24s my ( $status, $fh ) = _newFileHandle( $self->externalFileName(), 'r' );
# spent 3.21s making 9982 calls to Archive::Zip::_newFileHandle, avg 322µs/call # spent 27.9ms making 9982 calls to Archive::Zip::FileMember::externalFileName, avg 3µs/call
39 if ( !$status ) {
40 _ioError( "Can't open", $self->externalFileName() );
41 return undef;
42 }
43 $self->{'fh'} = $fh;
449982306ms _binmode($fh);
# spent 306ms making 9982 calls to Archive::Zip::_binmode, avg 31µs/call
45 return $fh;
46}
47
48# Make sure I close my file handle
49
# spent 926ms (659+267) within Archive::Zip::FileMember::endRead which was called 35182 times, avg 26µs/call: # 9982 times (107ms+51.2ms) by Archive::Zip::Archive::readFromFileHandle at line 608 of Archive/Zip/Archive.pm, avg 16µs/call # 8601 times (104ms+39.5ms) by Archive::Zip::Member::extractToFileHandle at line 993 of Archive/Zip/Member.pm, avg 17µs/call # 8368 times (91.4ms+38.4ms) by Archive::Zip::Member::readChunk at line 801 of Archive/Zip/Member.pm, avg 16µs/call # 8231 times (356ms+138ms) by Archive::Zip::Member::_inflateChunk at line 856 of Archive/Zip/Member.pm, avg 60µs/call
sub endRead {
50105546647ms my $self = shift;
51 undef $self->{'fh'}; # _closeFile();
5235182267ms return $self->SUPER::endRead(@_);
# spent 267ms making 35182 calls to Archive::Zip::Member::endRead, avg 8µs/call
53}
54
55
# spent 62.4ms (57.4+5.06) within Archive::Zip::FileMember::_become which was called 1381 times, avg 45µs/call: # 1381 times (57.4ms+5.06ms) by Archive::Zip::ZipFileMember::_become at line 117 of Archive/Zip/ZipFileMember.pm, avg 45µs/call
sub _become {
56828656.1ms my $self = shift;
57 my $newClass = shift;
58 return $self if ref($self) eq $newClass;
59 delete( $self->{'externalFileName'} );
60 delete( $self->{'fh'} );
6113815.06ms return $self->SUPER::_become($newClass);
# spent 5.06ms making 1381 calls to Archive::Zip::Member::_become, avg 4µs/call
62}
63
6417µs1;
Report produced by the NYTProf 4.09 Perl profiler, developed by Tim Bunce and Adam Kaplan.