Filename | /home/micha/.plenv/versions/5.38.2/lib/perl5/site_perl/5.38.2/Archive/Zip/StringMember.pm |
Statements | Executed 9 statements in 240µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 10µs | 11µs | BEGIN@3 | Archive::Zip::StringMember::
1 | 1 | 1 | 6µs | 6µs | BEGIN@6 | Archive::Zip::StringMember::
1 | 1 | 1 | 4µs | 22µs | BEGIN@4 | Archive::Zip::StringMember::
1 | 1 | 1 | 3µs | 88µs | BEGIN@11 | Archive::Zip::StringMember::
0 | 0 | 0 | 0s | 0s | _become | Archive::Zip::StringMember::
0 | 0 | 0 | 0s | 0s | _newFromString | Archive::Zip::StringMember::
0 | 0 | 0 | 0s | 0s | _readRawChunk | Archive::Zip::StringMember::
0 | 0 | 0 | 0s | 0s | contents | Archive::Zip::StringMember::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package Archive::Zip::StringMember; | ||||
2 | |||||
3 | 2 | 36µs | 2 | 13µs | # spent 11µs (10+2) within Archive::Zip::StringMember::BEGIN@3 which was called:
# once (10µs+2µs) by Spreadsheet::ParseXLSX::BEGIN@11 at line 3 # spent 11µs making 1 call to Archive::Zip::StringMember::BEGIN@3
# spent 2µs making 1 call to strict::import |
4 | 2 | 23µs | 2 | 39µs | # spent 22µs (4+18) within Archive::Zip::StringMember::BEGIN@4 which was called:
# once (4µs+18µs) by Spreadsheet::ParseXLSX::BEGIN@11 at line 4 # spent 22µs making 1 call to Archive::Zip::StringMember::BEGIN@4
# spent 18µs making 1 call to vars::import |
5 | |||||
6 | # spent 6µs within Archive::Zip::StringMember::BEGIN@6 which was called:
# once (6µs+0s) by Spreadsheet::ParseXLSX::BEGIN@11 at line 9 | ||||
7 | 1 | 200ns | $VERSION = '1.68'; | ||
8 | 1 | 7µs | @ISA = qw( Archive::Zip::Member ); | ||
9 | 1 | 14µs | 1 | 6µs | } # spent 6µs making 1 call to Archive::Zip::StringMember::BEGIN@6 |
10 | |||||
11 | 1 | 2µs | 1 | 85µs | # spent 88µs (3+85) within Archive::Zip::StringMember::BEGIN@11 which was called:
# once (3µs+85µs) by Spreadsheet::ParseXLSX::BEGIN@11 at line 14 # spent 85µs making 1 call to Exporter::import |
12 | :CONSTANTS | ||||
13 | :ERROR_CODES | ||||
14 | 1 | 157µs | 1 | 88µs | ); # spent 88µs making 1 call to Archive::Zip::StringMember::BEGIN@11 |
15 | |||||
16 | # Create a new string member. Default is COMPRESSION_STORED. | ||||
17 | # Can take a ref to a string as well. | ||||
18 | sub _newFromString { | ||||
19 | my $class = shift; | ||||
20 | my $string = shift; | ||||
21 | my $name = shift; | ||||
22 | my $self = $class->new(@_); | ||||
23 | $self->contents($string); | ||||
24 | $self->fileName($name) if defined($name); | ||||
25 | |||||
26 | # Set the file date to now | ||||
27 | $self->setLastModFileDateTimeFromUnix(time()); | ||||
28 | $self->unixFileAttributes($self->DEFAULT_FILE_PERMISSIONS); | ||||
29 | return $self; | ||||
30 | } | ||||
31 | |||||
32 | sub _become { | ||||
33 | my $self = shift; | ||||
34 | my $newClass = shift; | ||||
35 | return $self if ref($self) eq $newClass; | ||||
36 | delete($self->{'contents'}); | ||||
37 | return $self->SUPER::_become($newClass); | ||||
38 | } | ||||
39 | |||||
40 | # Get or set my contents. Note that we do not call the superclass | ||||
41 | # version of this, because it calls us. | ||||
42 | sub contents { | ||||
43 | my $self = shift; | ||||
44 | my $string = shift; | ||||
45 | if (defined($string)) { | ||||
46 | $self->{'contents'} = | ||||
47 | pack('C0a*', (ref($string) eq 'SCALAR') ? $$string : $string); | ||||
48 | $self->{'uncompressedSize'} = $self->{'compressedSize'} = | ||||
49 | length($self->{'contents'}); | ||||
50 | $self->{'compressionMethod'} = COMPRESSION_STORED; | ||||
51 | } | ||||
52 | return wantarray ? ($self->{'contents'}, AZ_OK) : $self->{'contents'}; | ||||
53 | } | ||||
54 | |||||
55 | # Return bytes read. Note that first parameter is a ref to a buffer. | ||||
56 | # my $data; | ||||
57 | # my ( $bytesRead, $status) = $self->readRawChunk( \$data, $chunkSize ); | ||||
58 | sub _readRawChunk { | ||||
59 | my ($self, $dataRef, $chunkSize) = @_; | ||||
60 | $$dataRef = substr($self->contents(), $self->_readOffset(), $chunkSize); | ||||
61 | return (length($$dataRef), AZ_OK); | ||||
62 | } | ||||
63 | |||||
64 | 1 | 2µs | 1; |