← Index
NYTProf Performance Profile   « line view »
For /usr/sbin/pkg_info
  Run on Fri Aug 4 10:12:01 2017
Reported on Fri Aug 4 10:12:17 2017

Filename/usr/libdata/perl5/amd64-openbsd/IO/Uncompress/Adapter/Inflate.pm
StatementsExecuted 50 statements in 1.16ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
211186µs1.96msIO::Uncompress::Adapter::Inflate::::mkUncompObjectIO::Uncompress::Adapter::Inflate::mkUncompObject
211103µs368µsIO::Uncompress::Adapter::Inflate::::uncomprIO::Uncompress::Adapter::Inflate::uncompr
11132µs35µsIO::Uncompress::Adapter::Inflate::::BEGIN@3IO::Uncompress::Adapter::Inflate::BEGIN@3
11127µs189µsIO::Uncompress::Adapter::Inflate::::BEGIN@7IO::Uncompress::Adapter::Inflate::BEGIN@7
11119µs213µsIO::Uncompress::Adapter::Inflate::::BEGIN@8IO::Uncompress::Adapter::Inflate::BEGIN@8
11113µs24µsIO::Uncompress::Adapter::Inflate::::BEGIN@4IO::Uncompress::Adapter::Inflate::BEGIN@4
0000s0sIO::Uncompress::Adapter::Inflate::::adler32IO::Uncompress::Adapter::Inflate::adler32
0000s0sIO::Uncompress::Adapter::Inflate::::compressedBytesIO::Uncompress::Adapter::Inflate::compressedBytes
0000s0sIO::Uncompress::Adapter::Inflate::::crc32IO::Uncompress::Adapter::Inflate::crc32
0000s0sIO::Uncompress::Adapter::Inflate::::createDeflateStreamIO::Uncompress::Adapter::Inflate::createDeflateStream
0000s0sIO::Uncompress::Adapter::Inflate::::getEndOffsetIO::Uncompress::Adapter::Inflate::getEndOffset
0000s0sIO::Uncompress::Adapter::Inflate::::getLastBlockOffsetIO::Uncompress::Adapter::Inflate::getLastBlockOffset
0000s0sIO::Uncompress::Adapter::Inflate::::resetIO::Uncompress::Adapter::Inflate::reset
0000s0sIO::Uncompress::Adapter::Inflate::::resetLastBlockByteIO::Uncompress::Adapter::Inflate::resetLastBlockByte
0000s0sIO::Uncompress::Adapter::Inflate::::syncIO::Uncompress::Adapter::Inflate::sync
0000s0sIO::Uncompress::Adapter::Inflate::::uncompressedBytesIO::Uncompress::Adapter::Inflate::uncompressedBytes
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package IO::Uncompress::Adapter::Inflate;
2
3239µs239µs
# spent 35µs (32+4) within IO::Uncompress::Adapter::Inflate::BEGIN@3 which was called: # once (32µs+4µs) by IO::Uncompress::RawInflate::BEGIN@12 at line 3
use strict;
# spent 35µs making 1 call to IO::Uncompress::Adapter::Inflate::BEGIN@3 # spent 4µs making 1 call to strict::import
4274µs235µs
# spent 24µs (13+11) within IO::Uncompress::Adapter::Inflate::BEGIN@4 which was called: # once (13µs+11µs) by IO::Uncompress::RawInflate::BEGIN@12 at line 4
use warnings;
# spent 24µs making 1 call to IO::Uncompress::Adapter::Inflate::BEGIN@4 # spent 11µs making 1 call to warnings::import
5#use bytes;
6
7364µs3350µs
# spent 189µs (27+162) within IO::Uncompress::Adapter::Inflate::BEGIN@7 which was called: # once (27µs+162µs) by IO::Uncompress::RawInflate::BEGIN@12 at line 7
use IO::Compress::Base::Common 2.069 qw(:Status);
# spent 189µs making 1 call to IO::Uncompress::Adapter::Inflate::BEGIN@7 # spent 153µs making 1 call to Exporter::import # spent 9µs making 1 call to UNIVERSAL::VERSION
83529µs3406µs
# spent 213µs (19+194) within IO::Uncompress::Adapter::Inflate::BEGIN@8 which was called: # once (19µs+194µs) by IO::Uncompress::RawInflate::BEGIN@12 at line 8
use Compress::Raw::Zlib 2.069 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
# spent 213µs making 1 call to IO::Uncompress::Adapter::Inflate::BEGIN@8 # spent 185µs making 1 call to Exporter::import # spent 8µs making 1 call to UNIVERSAL::VERSION
9
10our ($VERSION);
111900ns$VERSION = '2.069_001';
12
- -
15sub mkUncompObject
16
# spent 1.96ms (186µs+1.77) within IO::Uncompress::Adapter::Inflate::mkUncompObject which was called 2 times, avg 978µs/call: # 2 times (186µs+1.77ms) by IO::Uncompress::RawInflate::mkUncomp at line 76 of IO/Uncompress/RawInflate.pm, avg 978µs/call
{
17210µs my $crc32 = shift || 1;
1822µs my $adler32 = shift || 1;
1922µs my $scan = shift || 0;
20
2122µs my $inflate ;
22 my $status ;
23
2424µs if ($scan)
25 {
26 ($inflate, $status) = new Compress::Raw::Zlib::InflateScan
27 #LimitOutput => 1,
28 CRC32 => $crc32,
29 ADLER32 => $adler32,
30 WindowBits => - MAX_WBITS ;
31 }
32 else
33 {
34291µs41.71ms ($inflate, $status) = new Compress::Raw::Zlib::Inflate
# spent 1.67ms making 2 calls to Compress::Raw::Zlib::Inflate::new, avg 837µs/call # spent 34µs making 2 calls to Compress::Raw::Zlib::__ANON__[Compress/Raw/Zlib.pm:114], avg 17µs/call
35 AppendOutput => 1,
36 LimitOutput => 1,
37 CRC32 => $crc32,
38 ADLER32 => $adler32,
39 WindowBits => - MAX_WBITS ;
40 }
41
42230µs258µs return (undef, "Could not create Inflation object: $status", $status)
# spent 37µs making 1 call to Compress::Raw::Zlib::AUTOLOAD # spent 21µs making 1 call to Compress::Raw::Zlib::__ANON__[Compress/Raw/Zlib.pm:114]
43 if $status != Z_OK ;
44
45242µs return bless {'Inf' => $inflate,
46 'CompSize' => 0,
47 'UnCompSize' => 0,
48 'Error' => '',
49 'ConsumesInput' => 1,
50 } ;
51
52}
53
54sub uncompr
55
# spent 368µs (103+266) within IO::Uncompress::Adapter::Inflate::uncompr which was called 2 times, avg 184µs/call: # 2 times (103µs+266µs) by IO::Uncompress::Base::_raw_read at line 913 of IO/Uncompress/Base.pm, avg 184µs/call
{
5622µs my $self = shift ;
5722µs my $from = shift ;
5822µs my $to = shift ;
5922µs my $eof = shift ;
60
6127µs my $inf = $self->{Inf};
62
632183µs2170µs my $status = $inf->inflate($from, $to, $eof);
# spent 170µs making 2 calls to Compress::Raw::Zlib::inflateStream::inflate, avg 85µs/call
6423µs $self->{ErrorNo} = $status;
65
66227µs456µs if ($status != Z_OK && $status != Z_STREAM_END && $status != Z_BUF_ERROR)
# spent 40µs making 1 call to Compress::Raw::Zlib::AUTOLOAD # spent 16µs making 3 calls to Compress::Raw::Zlib::__ANON__[Compress/Raw/Zlib.pm:114], avg 5µs/call
67 {
68 $self->{Error} = "Inflation Error: $status";
69 return STATUS_ERROR;
70 }
71
72218µs228µs return STATUS_OK if $status == Z_BUF_ERROR ; # ???
# spent 22µs making 1 call to Compress::Raw::Zlib::AUTOLOAD # spent 6µs making 1 call to Compress::Raw::Zlib::__ANON__[Compress/Raw/Zlib.pm:114]
7326µs24µs return STATUS_OK if $status == Z_OK ;
# spent 4µs making 2 calls to Compress::Raw::Zlib::__ANON__[Compress/Raw/Zlib.pm:114], avg 2µs/call
74213µs24µs return STATUS_ENDSTREAM if $status == Z_STREAM_END ;
# spent 4µs making 2 calls to Compress::Raw::Zlib::__ANON__[Compress/Raw/Zlib.pm:114], avg 2µs/call
75 return STATUS_ERROR ;
76}
77
78sub reset
79{
80 my $self = shift ;
81 $self->{Inf}->inflateReset();
82
83 return STATUS_OK ;
84}
85
86#sub count
87#{
88# my $self = shift ;
89# $self->{Inf}->inflateCount();
90#}
91
92sub crc32
93{
94 my $self = shift ;
95 $self->{Inf}->crc32();
96}
97
98sub compressedBytes
99{
100 my $self = shift ;
101 $self->{Inf}->compressedBytes();
102}
103
104sub uncompressedBytes
105{
106 my $self = shift ;
107 $self->{Inf}->uncompressedBytes();
108}
109
110sub adler32
111{
112 my $self = shift ;
113 $self->{Inf}->adler32();
114}
115
116sub sync
117{
118 my $self = shift ;
119 ( $self->{Inf}->inflateSync(@_) == Z_OK)
120 ? STATUS_OK
121 : STATUS_ERROR ;
122}
123
124
125sub getLastBlockOffset
126{
127 my $self = shift ;
128 $self->{Inf}->getLastBlockOffset();
129}
130
131sub getEndOffset
132{
133 my $self = shift ;
134 $self->{Inf}->getEndOffset();
135}
136
137sub resetLastBlockByte
138{
139 my $self = shift ;
140 $self->{Inf}->resetLastBlockByte(@_);
141}
142
143sub createDeflateStream
144{
145 my $self = shift ;
146 my $deflate = $self->{Inf}->createDeflateStream(@_);
147 return bless {'Def' => $deflate,
148 'CompSize' => 0,
149 'UnCompSize' => 0,
150 'Error' => '',
151 }, 'IO::Compress::Adapter::Deflate';
152}
153
15414µs1;
155
156
157__END__
Report produced by the NYTProf 6.04 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.