Profile of IO/Uncompress/Adapter/Inflate.pm

Filename	/usr/local/perls/perl-5.26.1/lib/5.26.1/IO/Uncompress/Adapter/Inflate.pm
Statements	Executed 5721 statements in 37.1ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
631	1	1	12.3ms	43.4ms	IO::Uncompress::Adapter::Inflate::uncompr
3	1	1	334µs	2.78ms	IO::Uncompress::Adapter::Inflate::mkUncompObject
1	1	1	28µs	33µs	IO::Uncompress::Adapter::Inflate::BEGIN@3
1	1	1	17µs	188µs	IO::Uncompress::Adapter::Inflate::BEGIN@7
1	1	1	16µs	87µs	IO::Uncompress::Adapter::Inflate::BEGIN@8
1	1	1	12µs	25µs	IO::Uncompress::Adapter::Inflate::BEGIN@4
1	1	1	12µs	14µs	IO::Uncompress::Adapter::Inflate::BEGIN@5
0	0	0	0s	0s	IO::Uncompress::Adapter::Inflate::adler32
0	0	0	0s	0s	IO::Uncompress::Adapter::Inflate::compressedBytes
0	0	0	0s	0s	IO::Uncompress::Adapter::Inflate::crc32
0	0	0	0s	0s	IO::Uncompress::Adapter::Inflate::createDeflateStream
0	0	0	0s	0s	IO::Uncompress::Adapter::Inflate::getEndOffset
0	0	0	0s	0s	IO::Uncompress::Adapter::Inflate::getLastBlockOffset
0	0	0	0s	0s	IO::Uncompress::Adapter::Inflate::reset
0	0	0	0s	0s	IO::Uncompress::Adapter::Inflate::resetLastBlockByte
0	0	0	0s	0s	IO::Uncompress::Adapter::Inflate::sync
0	0	0	0s	0s	IO::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
1					package IO::Uncompress::Adapter::Inflate;
2
3	2	38µs	2	38µs	# spent 33µs (28+5) within IO::Uncompress::Adapter::Inflate::BEGIN@3 which was called: # once (28µs+5µs) by IO::Uncompress::RawInflate::BEGIN@12 at line 3 use strict; # spent 33µs making 1 call to IO::Uncompress::Adapter::Inflate::BEGIN@3 # spent 5µs making 1 call to strict::import
4	2	39µs	2	38µs	# spent 25µs (12+13) within IO::Uncompress::Adapter::Inflate::BEGIN@4 which was called: # once (12µs+13µs) by IO::Uncompress::RawInflate::BEGIN@12 at line 4 use warnings; # spent 25µs making 1 call to IO::Uncompress::Adapter::Inflate::BEGIN@4 # spent 13µs making 1 call to warnings::import
5	2	40µs	2	16µs	# spent 14µs (12+2) within IO::Uncompress::Adapter::Inflate::BEGIN@5 which was called: # once (12µs+2µs) by IO::Uncompress::RawInflate::BEGIN@12 at line 5 use bytes; # spent 14µs making 1 call to IO::Uncompress::Adapter::Inflate::BEGIN@5 # spent 2µs making 1 call to bytes::import
6
7	3	65µs	3	359µs	# spent 188µs (17+171) within IO::Uncompress::Adapter::Inflate::BEGIN@7 which was called: # once (17µs+171µs) by IO::Uncompress::RawInflate::BEGIN@12 at line 7 use IO::Compress::Base::Common 2.074 qw(:Status); # spent 188µs making 1 call to IO::Uncompress::Adapter::Inflate::BEGIN@7 # spent 158µs making 1 call to Exporter::import # spent 13µs making 1 call to version::_VERSION
8	3	728µs	3	158µs	# spent 87µs (16+71) within IO::Uncompress::Adapter::Inflate::BEGIN@8 which was called: # once (16µs+71µs) by IO::Uncompress::RawInflate::BEGIN@12 at line 8 use Compress::Raw::Zlib 2.074 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS); # spent 87µs making 1 call to IO::Uncompress::Adapter::Inflate::BEGIN@8 # spent 60µs making 1 call to Exporter::import # spent 11µs making 1 call to version::_VERSION
9
10					our ($VERSION);
11	1	1µs			$VERSION = '2.074';
12
- -
15					sub mkUncompObject
16					# spent 2.78ms (334µs+2.45) within IO::Uncompress::Adapter::Inflate::mkUncompObject which was called 3 times, avg 928µs/call: # 3 times (334µs+2.45ms) by IO::Uncompress::RawInflate::mkUncomp at line 76 of IO/Uncompress/RawInflate.pm, avg 928µs/call {
17	3	0s			my $crc32 = shift \|\| 1;
18	3	13µs			my $adler32 = shift \|\| 1;
19	3	0s			my $scan = shift \|\| 0;
20
21	3	23µs			my $inflate ;
22					my $status ;
23
24	3	2µ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					{
34	3	109µs	6	2.40ms	($inflate, $status) = new Compress::Raw::Zlib::Inflate # spent 2.38ms making 3 calls to Compress::Raw::Zlib::Inflate::new, avg 793µs/call # spent 21µs making 3 calls to Compress::Raw::Zlib::__ANON__[Compress/Raw/Zlib.pm:114], avg 7µs/call
35					AppendOutput => 1,
36					LimitOutput => 1,
37					CRC32 => $crc32,
38					ADLER32 => $adler32,
39					WindowBits => - MAX_WBITS ;
40					}
41
42	3	34µs	3	46µs	return (undef, "Could not create Inflation object: $status", $status) # spent 32µs making 1 call to Compress::Raw::Zlib::AUTOLOAD # spent 14µs making 2 calls to Compress::Raw::Zlib::__ANON__[Compress/Raw/Zlib.pm:114], avg 7µs/call
43					if $status != Z_OK ;
44
45	3	41µs			return bless {'Inf' => $inflate,
46					'CompSize' => 0,
47					'UnCompSize' => 0,
48					'Error' => '',
49					'ConsumesInput' => 1,
50					} ;
51
52					}
53
54					sub uncompr
55					# spent 43.4ms (12.3+31.1) within IO::Uncompress::Adapter::Inflate::uncompr which was called 631 times, avg 69µs/call: # 631 times (12.3ms+31.1ms) by IO::Uncompress::Base::_raw_read at line 913 of IO/Uncompress/Base.pm, avg 69µs/call {
56	631	143µs			my $self = shift ;
57	631	84µs			my $from = shift ;
58	631	79µs			my $to = shift ;
59	631	172µs			my $eof = shift ;
60
61	631	242µs			my $inf = $self->{Inf};
62
63	631	29.7ms	631	27.8ms	my $status = $inf->inflate($from, $to, $eof); # spent 27.8ms making 631 calls to Compress::Raw::Zlib::inflateStream::inflate, avg 44µs/call
64	631	261µs			$self->{ErrorNo} = $status;
65
66	631	3.14ms	1891	2.66ms	if ($status != Z_OK && $status != Z_STREAM_END && $status != Z_BUF_ERROR) # spent 2.60ms making 1889 calls to Compress::Raw::Zlib::__ANON__[Compress/Raw/Zlib.pm:114], avg 1µs/call # spent 60µs making 2 calls to Compress::Raw::Zlib::AUTOLOAD, avg 30µs/call
67					{
68					$self->{Error} = "Inflation Error: $status";
69					return STATUS_ERROR;
70					}
71
72	631	2.12ms	631	616µs	return STATUS_OK if $status == Z_BUF_ERROR ; # ??? # spent 616µs making 631 calls to Compress::Raw::Zlib::__ANON__[Compress/Raw/Zlib.pm:114], avg 976ns/call
73	2	11µs	2	3µs	return STATUS_OK if $status == Z_OK ; # spent 3µs making 2 calls to Compress::Raw::Zlib::__ANON__[Compress/Raw/Zlib.pm:114], avg 2µs/call
74	2	7µs	2	3µs	return STATUS_ENDSTREAM if $status == Z_STREAM_END ; # spent 3µs making 2 calls to Compress::Raw::Zlib::__ANON__[Compress/Raw/Zlib.pm:114], avg 2µs/call
75					return STATUS_ERROR ;
76					}
77
78					sub 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
92					sub crc32
93					{
94					my $self = shift ;
95					$self->{Inf}->crc32();
96					}
97
98					sub compressedBytes
99					{
100					my $self = shift ;
101					$self->{Inf}->compressedBytes();
102					}
103
104					sub uncompressedBytes
105					{
106					my $self = shift ;
107					$self->{Inf}->uncompressedBytes();
108					}
109
110					sub adler32
111					{
112					my $self = shift ;
113					$self->{Inf}->adler32();
114					}
115
116					sub sync
117					{
118					my $self = shift ;
119					( $self->{Inf}->inflateSync(@_) == Z_OK)
120					? STATUS_OK
121					: STATUS_ERROR ;
122					}
123
124
125					sub getLastBlockOffset
126					{
127					my $self = shift ;
128					$self->{Inf}->getLastBlockOffset();
129					}
130
131					sub getEndOffset
132					{
133					my $self = shift ;
134					$self->{Inf}->getEndOffset();
135					}
136
137					sub resetLastBlockByte
138					{
139					my $self = shift ;
140					$self->{Inf}->resetLastBlockByte(@_);
141					}
142
143					sub 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
154	1	5µs			1;
155
156
157					__END__