← 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/NewFileMember.pm
StatementsExecuted 9 statements in 1.12ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111221µs232µsArchive::Zip::NewFileMember::::BEGIN@3Archive::Zip::NewFileMember::BEGIN@3
11126µs26µsArchive::Zip::NewFileMember::::BEGIN@6Archive::Zip::NewFileMember::BEGIN@6
11115µs582µsArchive::Zip::NewFileMember::::BEGIN@11Archive::Zip::NewFileMember::BEGIN@11
11115µs102µsArchive::Zip::NewFileMember::::BEGIN@4Archive::Zip::NewFileMember::BEGIN@4
0000s0sArchive::Zip::NewFileMember::::_newFromFileNamedArchive::Zip::NewFileMember::_newFromFileNamed
0000s0sArchive::Zip::NewFileMember::::_readRawChunkArchive::Zip::NewFileMember::_readRawChunk
0000s0sArchive::Zip::NewFileMember::::extractToFileNamedArchive::Zip::NewFileMember::extractToFileNamed
0000s0sArchive::Zip::NewFileMember::::rewindDataArchive::Zip::NewFileMember::rewindData
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::NewFileMember;
2
3276µs2244µs
# spent 232µs (221+12) within Archive::Zip::NewFileMember::BEGIN@3 which was called: # once (221µs+12µs) by installer::archivefiles::BEGIN@30 at line 3
use strict;
# spent 232µs making 1 call to Archive::Zip::NewFileMember::BEGIN@3 # spent 12µs making 1 call to strict::import
4293µs2190µs
# spent 102µs (15+88) within Archive::Zip::NewFileMember::BEGIN@4 which was called: # once (15µs+88µs) by installer::archivefiles::BEGIN@30 at line 4
use vars qw( $VERSION @ISA );
# spent 102µs making 1 call to Archive::Zip::NewFileMember::BEGIN@4 # spent 88µs making 1 call to vars::import
5
6
# spent 26µs within Archive::Zip::NewFileMember::BEGIN@6 which was called: # once (26µs+0s) by installer::archivefiles::BEGIN@30 at line 9
BEGIN {
7227µs $VERSION = '1.30';
8 @ISA = qw ( Archive::Zip::FileMember );
9160µs126µs}
# spent 26µs making 1 call to Archive::Zip::NewFileMember::BEGIN@6
10
111567µs
# spent 582µs (15+567) within Archive::Zip::NewFileMember::BEGIN@11 which was called: # once (15µs+567µs) by installer::archivefiles::BEGIN@30 at line 15
use Archive::Zip qw(
# spent 567µs making 1 call to Exporter::import
12 :CONSTANTS
13 :ERROR_CODES
14 :UTILITY_METHODS
152854µs1582µs);
# spent 582µs making 1 call to Archive::Zip::NewFileMember::BEGIN@11
16
17# Given a file name, set up for eventual writing.
18sub _newFromFileNamed {
19 my $class = shift;
20 my $fileName = shift; # local FS format
21 my $newName = shift;
22 $newName = _asZipDirName($fileName) unless defined($newName);
23 return undef unless ( stat($fileName) && -r _ && !-d _ );
24 my $self = $class->new(@_);
25 $self->{'fileName'} = $newName;
26 $self->{'externalFileName'} = $fileName;
27 $self->{'compressionMethod'} = COMPRESSION_STORED;
28 my @stat = stat(_);
29 $self->{'compressedSize'} = $self->{'uncompressedSize'} = $stat[7];
30 $self->desiredCompressionMethod(
31 ( $self->compressedSize() > 0 )
32 ? COMPRESSION_DEFLATED
33 : COMPRESSION_STORED
34 );
35 $self->unixFileAttributes( $stat[2] );
36 $self->setLastModFileDateTimeFromUnix( $stat[9] );
37 $self->isTextFile( -T _ );
38 return $self;
39}
40
41sub rewindData {
42 my $self = shift;
43
44 my $status = $self->SUPER::rewindData(@_);
45 return $status unless $status == AZ_OK;
46
47 return AZ_IO_ERROR unless $self->fh();
48 $self->fh()->clearerr();
49 $self->fh()->seek( 0, IO::Seekable::SEEK_SET )
50 or return _ioError( "rewinding", $self->externalFileName() );
51 return AZ_OK;
52}
53
54# Return bytes read. Note that first parameter is a ref to a buffer.
55# my $data;
56# my ( $bytesRead, $status) = $self->readRawChunk( \$data, $chunkSize );
57sub _readRawChunk {
58 my ( $self, $dataRef, $chunkSize ) = @_;
59 return ( 0, AZ_OK ) unless $chunkSize;
60 my $bytesRead = $self->fh()->read( $$dataRef, $chunkSize )
61 or return ( 0, _ioError("reading data") );
62 return ( $bytesRead, AZ_OK );
63}
64
65# If I already exist, extraction is a no-op.
66sub extractToFileNamed {
67 my $self = shift;
68 my $name = shift; # local FS name
69 if ( File::Spec->rel2abs($name) eq
70 File::Spec->rel2abs( $self->externalFileName() ) and -r $name )
71 {
72 return AZ_OK;
73 }
74 else {
75 return $self->SUPER::extractToFileNamed( $name, @_ );
76 }
77}
78
7918µs1;