← Index
NYTProf Performance Profile   « line view »
For ../prof.pl
  Run on Thu Dec 15 15:23:56 2022
Reported on Thu Dec 15 15:27:02 2022

Filename/Users/ether/perl5/perlbrew/perls/36.0/lib/5.36.0/darwin-2level/Compress/Raw/Zlib.pm
StatementsExecuted 99 statements in 7.24ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
11158µs90µsCompress::Raw::Zlib::::BEGIN@6 Compress::Raw::Zlib::BEGIN@6
51142µs55µsCompress::Raw::Zlib::::AUTOLOAD Compress::Raw::Zlib::AUTOLOAD
51111µs11µsCompress::Raw::Zlib::::CORE:subst Compress::Raw::Zlib::CORE:subst (opcode)
1117µs17µsCompress::Raw::Zlib::::BEGIN@150 Compress::Raw::Zlib::BEGIN@150
1116µs8µsCompress::Raw::Zlib::::BEGIN@8 Compress::Raw::Zlib::BEGIN@8
1116µs27µsCompress::Raw::Zlib::::BEGIN@9 Compress::Raw::Zlib::BEGIN@9
8326µs6µsCompress::Raw::Zlib::::__ANON__[:114] Compress::Raw::Zlib::__ANON__[:114]
1115µs8µsCompress::Raw::Zlib::::BEGIN@10 Compress::Raw::Zlib::BEGIN@10
1115µs40µsCompress::Raw::Zlib::::BEGIN@105 Compress::Raw::Zlib::BEGIN@105
1115µs21µsCompress::Raw::Zlib::::BEGIN@106 Compress::Raw::Zlib::BEGIN@106
1115µs11µsCompress::Raw::Zlib::::BEGIN@113 Compress::Raw::Zlib::BEGIN@113
1115µs16µsCompress::Raw::Zlib::::BEGIN@148 Compress::Raw::Zlib::BEGIN@148
1114µs23µsCompress::Raw::Zlib::::BEGIN@118 Compress::Raw::Zlib::BEGIN@118
1114µs13µsCompress::Raw::Zlib::::BEGIN@119 Compress::Raw::Zlib::BEGIN@119
1114µs17µsCompress::Raw::Zlib::::BEGIN@139 Compress::Raw::Zlib::BEGIN@139
1114µs17µsCompress::Raw::Zlib::::BEGIN@145 Compress::Raw::Zlib::BEGIN@145
1113µs16µsCompress::Raw::Zlib::::BEGIN@120 Compress::Raw::Zlib::BEGIN@120
1113µs16µsCompress::Raw::Zlib::::BEGIN@121 Compress::Raw::Zlib::BEGIN@121
1113µs14µsCompress::Raw::Zlib::::BEGIN@122 Compress::Raw::Zlib::BEGIN@122
1113µs15µsCompress::Raw::Zlib::::BEGIN@138 Compress::Raw::Zlib::BEGIN@138
1113µs14µsCompress::Raw::Zlib::::BEGIN@146 Compress::Raw::Zlib::BEGIN@146
1113µs15µsCompress::Raw::Zlib::::BEGIN@147 Compress::Raw::Zlib::BEGIN@147
1112µs16µsCompress::Raw::Zlib::::BEGIN@136 Compress::Raw::Zlib::BEGIN@136
1112µs19µsCompress::Raw::Zlib::::BEGIN@137 Compress::Raw::Zlib::BEGIN@137
1112µs16µsCompress::Raw::Zlib::::BEGIN@149 Compress::Raw::Zlib::BEGIN@149
5112µs2µsCompress::Raw::Zlib::::constant Compress::Raw::Zlib::constant (xsub)
0000s0sCompress::Raw::Zlib::Deflate::::new Compress::Raw::Zlib::Deflate::new
0000s0sCompress::Raw::Zlib::Inflate::::new Compress::Raw::Zlib::Inflate::new
0000s0sCompress::Raw::Zlib::InflateScan::::new Compress::Raw::Zlib::InflateScan::new
0000s0sCompress::Raw::Zlib::Parameters::::_checkType Compress::Raw::Zlib::Parameters::_checkType
0000s0sCompress::Raw::Zlib::Parameters::::new Compress::Raw::Zlib::Parameters::new
0000s0sCompress::Raw::Zlib::Parameters::::parse Compress::Raw::Zlib::Parameters::parse
0000s0sCompress::Raw::Zlib::Parameters::::parsed Compress::Raw::Zlib::Parameters::parsed
0000s0sCompress::Raw::Zlib::Parameters::::setError Compress::Raw::Zlib::Parameters::setError
0000s0sCompress::Raw::Zlib::Parameters::::value Compress::Raw::Zlib::Parameters::value
0000s0sCompress::Raw::Zlib::::ParseParameters Compress::Raw::Zlib::ParseParameters
0000s0sCompress::Raw::Zlib::deflateStream::::STORABLE_freeze Compress::Raw::Zlib::deflateStream::STORABLE_freeze
0000s0sCompress::Raw::Zlib::deflateStream::::STORABLE_thaw Compress::Raw::Zlib::deflateStream::STORABLE_thaw
0000s0sCompress::Raw::Zlib::deflateStream::::deflateParams Compress::Raw::Zlib::deflateStream::deflateParams
0000s0sCompress::Raw::Zlib::inflateScanStream::::createDeflateStreamCompress::Raw::Zlib::inflateScanStream::createDeflateStream
0000s0sCompress::Raw::Zlib::inflateScanStream::::inflateCompress::Raw::Zlib::inflateScanStream::inflate
0000s0sCompress::Raw::Zlib::inflateStream::::STORABLE_freeze Compress::Raw::Zlib::inflateStream::STORABLE_freeze
0000s0sCompress::Raw::Zlib::inflateStream::::STORABLE_thaw Compress::Raw::Zlib::inflateStream::STORABLE_thaw
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1
2package Compress::Raw::Zlib;
3
417µsrequire 5.006 ;
511µsrequire Exporter;
6232µs2122µs
# spent 90µs (58+32) within Compress::Raw::Zlib::BEGIN@6 which was called: # once (58µs+32µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 6
use Carp ;
# spent 90µs making 1 call to Compress::Raw::Zlib::BEGIN@6 # spent 32µs making 1 call to Exporter::import
7
8217µs210µs
# spent 8µs (6+2) within Compress::Raw::Zlib::BEGIN@8 which was called: # once (6µs+2µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 8
use strict ;
# spent 8µs making 1 call to Compress::Raw::Zlib::BEGIN@8 # spent 2µs making 1 call to strict::import
9214µs248µs
# spent 27µs (6+21) within Compress::Raw::Zlib::BEGIN@9 which was called: # once (6µs+21µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 9
use warnings ;
# spent 27µs making 1 call to Compress::Raw::Zlib::BEGIN@9 # spent 21µs making 1 call to warnings::import
102160µs211µs
# spent 8µs (5+3) within Compress::Raw::Zlib::BEGIN@10 which was called: # once (5µs+3µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 10
use bytes ;
# spent 8µs making 1 call to Compress::Raw::Zlib::BEGIN@10 # spent 3µs making 1 call to bytes::import
11our ($VERSION, $XS_VERSION, @ISA, @EXPORT, %EXPORT_TAGS, @EXPORT_OK, $AUTOLOAD, %DEFLATE_CONSTANTS, @DEFLATE_CONSTANTS);
12
1310s$VERSION = '2.105';
1410s$XS_VERSION = $VERSION;
15114µs$VERSION = eval $VERSION;
# spent 2µs executing statements in string eval
16
1716µs@ISA = qw(Exporter);
1813µs%EXPORT_TAGS = ( flush => [qw{
19 Z_NO_FLUSH
20 Z_PARTIAL_FLUSH
21 Z_SYNC_FLUSH
22 Z_FULL_FLUSH
23 Z_FINISH
24 Z_BLOCK
25 }],
26 level => [qw{
27 Z_NO_COMPRESSION
28 Z_BEST_SPEED
29 Z_BEST_COMPRESSION
30 Z_DEFAULT_COMPRESSION
31 }],
32 strategy => [qw{
33 Z_FILTERED
34 Z_HUFFMAN_ONLY
35 Z_RLE
36 Z_FIXED
37 Z_DEFAULT_STRATEGY
38 }],
39 status => [qw{
40 Z_OK
41 Z_STREAM_END
42 Z_NEED_DICT
43 Z_ERRNO
44 Z_STREAM_ERROR
45 Z_DATA_ERROR
46 Z_MEM_ERROR
47 Z_BUF_ERROR
48 Z_VERSION_ERROR
49 }],
50 );
51
5211µs%DEFLATE_CONSTANTS = %EXPORT_TAGS;
53
54# Items to export into callers namespace by default. Note: do not export
55# names by default without a very good reason. Use EXPORT_OK instead.
56# Do not simply export all your public functions/methods/constants.
5713µs@DEFLATE_CONSTANTS =
58@EXPORT = qw(
59 ZLIB_VERSION
60 ZLIB_VERNUM
61
62
63 OS_CODE
64
65 MAX_MEM_LEVEL
66 MAX_WBITS
67
68 Z_ASCII
69 Z_BEST_COMPRESSION
70 Z_BEST_SPEED
71 Z_BINARY
72 Z_BLOCK
73 Z_BUF_ERROR
74 Z_DATA_ERROR
75 Z_DEFAULT_COMPRESSION
76 Z_DEFAULT_STRATEGY
77 Z_DEFLATED
78 Z_ERRNO
79 Z_FILTERED
80 Z_FIXED
81 Z_FINISH
82 Z_FULL_FLUSH
83 Z_HUFFMAN_ONLY
84 Z_MEM_ERROR
85 Z_NEED_DICT
86 Z_NO_COMPRESSION
87 Z_NO_FLUSH
88 Z_NULL
89 Z_OK
90 Z_PARTIAL_FLUSH
91 Z_RLE
92 Z_STREAM_END
93 Z_STREAM_ERROR
94 Z_SYNC_FLUSH
95 Z_TREES
96 Z_UNKNOWN
97 Z_VERSION_ERROR
98
99 WANT_GZIP
100 WANT_GZIP_OR_ZLIB
101);
102
10314µspush @EXPORT, qw(crc32 adler32 DEF_WBITS);
104
105216µs275µs
# spent 40µs (5+35) within Compress::Raw::Zlib::BEGIN@105 which was called: # once (5µs+35µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 105
use constant WANT_GZIP => 16;
# spent 40µs making 1 call to Compress::Raw::Zlib::BEGIN@105 # spent 35µs making 1 call to constant::import
106266µs237µs
# spent 21µs (5+16) within Compress::Raw::Zlib::BEGIN@106 which was called: # once (5µs+16µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 106
use constant WANT_GZIP_OR_ZLIB => 32;
# spent 21µs making 1 call to Compress::Raw::Zlib::BEGIN@106 # spent 16µs making 1 call to constant::import
107
108
# spent 55µs (42+13) within Compress::Raw::Zlib::AUTOLOAD which was called 5 times, avg 11µs/call: # 5 times (42µs+13µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 377, avg 11µs/call
sub AUTOLOAD {
10950s my($constname);
110523µs511µs ($constname = $AUTOLOAD) =~ s/.*:://;
# spent 11µs making 5 calls to Compress::Raw::Zlib::CORE:subst, avg 2µs/call
11159µs52µs my ($error, $val) = constant($constname);
# spent 2µs making 5 calls to Compress::Raw::Zlib::constant, avg 400ns/call
11251µs Carp::croak $error if $error;
113255µs217µs
# spent 11µs (5+6) within Compress::Raw::Zlib::BEGIN@113 which was called: # once (5µs+6µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 113
no strict 'refs';
# spent 11µs making 1 call to Compress::Raw::Zlib::BEGIN@113 # spent 6µs making 1 call to strict::unimport
1141320µs
# spent 6µs within Compress::Raw::Zlib::__ANON__[/Users/ether/perl5/perlbrew/perls/36.0/lib/5.36.0/darwin-2level/Compress/Raw/Zlib.pm:114] which was called 8 times, avg 750ns/call: # 5 times (4µs+0s) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 115, avg 800ns/call # 2 times (1µs+0s) by IO::Compress::Gzip::BEGIN@11 at line 120 of IO/Compress/RawDeflate.pm, avg 500ns/call # once (1µs+0s) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 434
*{$AUTOLOAD} = sub { $val };
115511µs54µs goto &{$AUTOLOAD};
# spent 4µs making 5 calls to Compress::Raw::Zlib::__ANON__[Compress/Raw/Zlib.pm:114], avg 800ns/call
116}
117
118214µs242µs
# spent 23µs (4+19) within Compress::Raw::Zlib::BEGIN@118 which was called: # once (4µs+19µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 118
use constant FLAG_APPEND => 1 ;
# spent 23µs making 1 call to Compress::Raw::Zlib::BEGIN@118 # spent 19µs making 1 call to constant::import
119214µs222µs
# spent 13µs (4+9) within Compress::Raw::Zlib::BEGIN@119 which was called: # once (4µs+9µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 119
use constant FLAG_CRC => 2 ;
# spent 13µs making 1 call to Compress::Raw::Zlib::BEGIN@119 # spent 9µs making 1 call to constant::import
120211µs229µs
# spent 16µs (3+13) within Compress::Raw::Zlib::BEGIN@120 which was called: # once (3µs+13µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 120
use constant FLAG_ADLER => 4 ;
# spent 16µs making 1 call to Compress::Raw::Zlib::BEGIN@120 # spent 13µs making 1 call to constant::import
121211µs229µs
# spent 16µs (3+13) within Compress::Raw::Zlib::BEGIN@121 which was called: # once (3µs+13µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 121
use constant FLAG_CONSUME_INPUT => 8 ;
# spent 16µs making 1 call to Compress::Raw::Zlib::BEGIN@121 # spent 13µs making 1 call to constant::import
122238µs225µs
# spent 14µs (3+11) within Compress::Raw::Zlib::BEGIN@122 which was called: # once (3µs+11µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 122
use constant FLAG_LIMIT_OUTPUT => 16 ;
# spent 14µs making 1 call to Compress::Raw::Zlib::BEGIN@122 # spent 11µs making 1 call to constant::import
123
124eval {
12511µs require XSLoader;
12614.91ms14.90ms XSLoader::load('Compress::Raw::Zlib', $XS_VERSION);
# spent 4.90ms making 1 call to XSLoader::load
12711µs 1;
128}
12910sor do {
130 require DynaLoader;
131 local @ISA = qw(DynaLoader);
132 bootstrap Compress::Raw::Zlib $XS_VERSION ;
133};
134
135
136211µs230µs
# spent 16µs (2+14) within Compress::Raw::Zlib::BEGIN@136 which was called: # once (2µs+14µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 136
use constant Parse_any => 0x01;
# spent 16µs making 1 call to Compress::Raw::Zlib::BEGIN@136 # spent 14µs making 1 call to constant::import
137210µs236µs
# spent 19µs (2+17) within Compress::Raw::Zlib::BEGIN@137 which was called: # once (2µs+17µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 137
use constant Parse_unsigned => 0x02;
# spent 19µs making 1 call to Compress::Raw::Zlib::BEGIN@137 # spent 17µs making 1 call to constant::import
138210µs227µs
# spent 15µs (3+12) within Compress::Raw::Zlib::BEGIN@138 which was called: # once (3µs+12µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 138
use constant Parse_signed => 0x04;
# spent 15µs making 1 call to Compress::Raw::Zlib::BEGIN@138 # spent 12µs making 1 call to constant::import
139212µs230µs
# spent 17µs (4+13) within Compress::Raw::Zlib::BEGIN@139 which was called: # once (4µs+13µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 139
use constant Parse_boolean => 0x08;
# spent 17µs making 1 call to Compress::Raw::Zlib::BEGIN@139 # spent 13µs making 1 call to constant::import
140#use constant Parse_string => 0x10;
141#use constant Parse_custom => 0x12;
142
143#use constant Parse_store_ref => 0x100 ;
144
145211µs230µs
# spent 17µs (4+13) within Compress::Raw::Zlib::BEGIN@145 which was called: # once (4µs+13µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 145
use constant OFF_PARSED => 0 ;
# spent 17µs making 1 call to Compress::Raw::Zlib::BEGIN@145 # spent 13µs making 1 call to constant::import
146211µs225µs
# spent 14µs (3+11) within Compress::Raw::Zlib::BEGIN@146 which was called: # once (3µs+11µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 146
use constant OFF_TYPE => 1 ;
# spent 14µs making 1 call to Compress::Raw::Zlib::BEGIN@146 # spent 11µs making 1 call to constant::import
147211µs227µs
# spent 15µs (3+12) within Compress::Raw::Zlib::BEGIN@147 which was called: # once (3µs+12µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 147
use constant OFF_DEFAULT => 2 ;
# spent 15µs making 1 call to Compress::Raw::Zlib::BEGIN@147 # spent 12µs making 1 call to constant::import
148210µs227µs
# spent 16µs (5+11) within Compress::Raw::Zlib::BEGIN@148 which was called: # once (5µs+11µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 148
use constant OFF_FIXED => 3 ;
# spent 16µs making 1 call to Compress::Raw::Zlib::BEGIN@148 # spent 11µs making 1 call to constant::import
149214µs230µs
# spent 16µs (2+14) within Compress::Raw::Zlib::BEGIN@149 which was called: # once (2µs+14µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 149
use constant OFF_FIRST_ONLY => 4 ;
# spent 16µs making 1 call to Compress::Raw::Zlib::BEGIN@149 # spent 14µs making 1 call to constant::import
15021.64ms227µs
# spent 17µs (7+10) within Compress::Raw::Zlib::BEGIN@150 which was called: # once (7µs+10µs) by IO::Compress::Adapter::Deflate::BEGIN@8 at line 150
use constant OFF_STICKY => 5 ;
# spent 17µs making 1 call to Compress::Raw::Zlib::BEGIN@150 # spent 10µs making 1 call to constant::import
151
- -
154sub ParseParameters
155{
156 my $level = shift || 0 ;
157
158 my $sub = (caller($level + 1))[3] ;
159 #local $Carp::CarpLevel = 1 ;
160 my $p = new Compress::Raw::Zlib::Parameters() ;
161 $p->parse(@_)
162 or croak "$sub: $p->{Error}" ;
163
164 return $p;
165}
166
167
168sub Compress::Raw::Zlib::Parameters::new
169{
170 my $class = shift ;
171
172 my $obj = { Error => '',
173 Got => {},
174 } ;
175
176 #return bless $obj, ref($class) || $class || __PACKAGE__ ;
177 return bless $obj, 'Compress::Raw::Zlib::Parameters' ;
178}
179
180sub Compress::Raw::Zlib::Parameters::setError
181{
182 my $self = shift ;
183 my $error = shift ;
184 my $retval = @_ ? shift : undef ;
185
186 $self->{Error} = $error ;
187 return $retval;
188}
189
190#sub getError
191#{
192# my $self = shift ;
193# return $self->{Error} ;
194#}
195
196sub Compress::Raw::Zlib::Parameters::parse
197{
198 my $self = shift ;
199
200 my $default = shift ;
201
202 my $got = $self->{Got} ;
203 my $firstTime = keys %{ $got } == 0 ;
204
205 my (@Bad) ;
206 my @entered = () ;
207
208 # Allow the options to be passed as a hash reference or
209 # as the complete hash.
210 if (@_ == 0) {
211 @entered = () ;
212 }
213 elsif (@_ == 1) {
214 my $href = $_[0] ;
215 return $self->setError("Expected even number of parameters, got 1")
216 if ! defined $href or ! ref $href or ref $href ne "HASH" ;
217
218 foreach my $key (keys %$href) {
219 push @entered, $key ;
220 push @entered, \$href->{$key} ;
221 }
222 }
223 else {
224 my $count = @_;
225 return $self->setError("Expected even number of parameters, got $count")
226 if $count % 2 != 0 ;
227
228 for my $i (0.. $count / 2 - 1) {
229 push @entered, $_[2* $i] ;
230 push @entered, \$_[2* $i+1] ;
231 }
232 }
233
234
235 while (my ($key, $v) = each %$default)
236 {
237 croak "need 4 params [@$v]"
238 if @$v != 4 ;
239
240 my ($first_only, $sticky, $type, $value) = @$v ;
241 my $x ;
242 $self->_checkType($key, \$value, $type, 0, \$x)
243 or return undef ;
244
245 $key = lc $key;
246
247 if ($firstTime || ! $sticky) {
248 $got->{$key} = [0, $type, $value, $x, $first_only, $sticky] ;
249 }
250
251 $got->{$key}[OFF_PARSED] = 0 ;
252 }
253
254 for my $i (0.. @entered / 2 - 1) {
255 my $key = $entered[2* $i] ;
256 my $value = $entered[2* $i+1] ;
257
258 #print "Key [$key] Value [$value]" ;
259 #print defined $$value ? "[$$value]\n" : "[undef]\n";
260
261 $key =~ s/^-// ;
262 my $canonkey = lc $key;
263
264 if ($got->{$canonkey} && ($firstTime ||
265 ! $got->{$canonkey}[OFF_FIRST_ONLY] ))
266 {
267 my $type = $got->{$canonkey}[OFF_TYPE] ;
268 my $s ;
269 $self->_checkType($key, $value, $type, 1, \$s)
270 or return undef ;
271 #$value = $$value unless $type & Parse_store_ref ;
272 $value = $$value ;
273 $got->{$canonkey} = [1, $type, $value, $s] ;
274 }
275 else
276 { push (@Bad, $key) }
277 }
278
279 if (@Bad) {
280 my ($bad) = join(", ", @Bad) ;
281 return $self->setError("unknown key value(s) @Bad") ;
282 }
283
284 return 1;
285}
286
287sub Compress::Raw::Zlib::Parameters::_checkType
288{
289 my $self = shift ;
290
291 my $key = shift ;
292 my $value = shift ;
293 my $type = shift ;
294 my $validate = shift ;
295 my $output = shift;
296
297 #local $Carp::CarpLevel = $level ;
298 #print "PARSE $type $key $value $validate $sub\n" ;
299# if ( $type & Parse_store_ref)
300# {
301# #$value = $$value
302# # if ref ${ $value } ;
303#
304# $$output = $value ;
305# return 1;
306# }
307
308 $value = $$value ;
309
310 if ($type & Parse_any)
311 {
312 $$output = $value ;
313 return 1;
314 }
315 elsif ($type & Parse_unsigned)
316 {
317 return $self->setError("Parameter '$key' must be an unsigned int, got 'undef'")
318 if $validate && ! defined $value ;
319 return $self->setError("Parameter '$key' must be an unsigned int, got '$value'")
320 if $validate && $value !~ /^\d+$/;
321
322 $$output = defined $value ? $value : 0 ;
323 return 1;
324 }
325 elsif ($type & Parse_signed)
326 {
327 return $self->setError("Parameter '$key' must be a signed int, got 'undef'")
328 if $validate && ! defined $value ;
329 return $self->setError("Parameter '$key' must be a signed int, got '$value'")
330 if $validate && $value !~ /^-?\d+$/;
331
332 $$output = defined $value ? $value : 0 ;
333 return 1 ;
334 }
335 elsif ($type & Parse_boolean)
336 {
337 return $self->setError("Parameter '$key' must be an int, got '$value'")
338 if $validate && defined $value && $value !~ /^\d*$/;
339 $$output = defined $value ? $value != 0 : 0 ;
340 return 1;
341 }
342# elsif ($type & Parse_string)
343# {
344# $$output = defined $value ? $value : "" ;
345# return 1;
346# }
347
348 $$output = $value ;
349 return 1;
350}
351
- -
354sub Compress::Raw::Zlib::Parameters::parsed
355{
356 my $self = shift ;
357 my $name = shift ;
358
359 return $self->{Got}{lc $name}[OFF_PARSED] ;
360}
361
362sub Compress::Raw::Zlib::Parameters::value
363{
364 my $self = shift ;
365 my $name = shift ;
366
367 if (@_)
368 {
369 $self->{Got}{lc $name}[OFF_PARSED] = 1;
370 $self->{Got}{lc $name}[OFF_DEFAULT] = $_[0] ;
371 $self->{Got}{lc $name}[OFF_FIXED] = $_[0] ;
372 }
373
374 return $self->{Got}{lc $name}[OFF_FIXED] ;
375}
376
377116µs555µsour $OPTIONS_deflate =
# spent 55µs making 5 calls to Compress::Raw::Zlib::AUTOLOAD, avg 11µs/call
378 {
379 'AppendOutput' => [1, 1, Parse_boolean, 0],
380 'CRC32' => [1, 1, Parse_boolean, 0],
381 'ADLER32' => [1, 1, Parse_boolean, 0],
382 'Bufsize' => [1, 1, Parse_unsigned, 4096],
383
384 'Level' => [1, 1, Parse_signed, Z_DEFAULT_COMPRESSION()],
385 'Method' => [1, 1, Parse_unsigned, Z_DEFLATED()],
386 'WindowBits' => [1, 1, Parse_signed, MAX_WBITS()],
387 'MemLevel' => [1, 1, Parse_unsigned, MAX_MEM_LEVEL()],
388 'Strategy' => [1, 1, Parse_unsigned, Z_DEFAULT_STRATEGY()],
389 'Dictionary' => [1, 1, Parse_any, ""],
390 };
391
392sub Compress::Raw::Zlib::Deflate::new
393{
394 my $pkg = shift ;
395 my ($got) = ParseParameters(0, $OPTIONS_deflate, @_);
396
397 croak "Compress::Raw::Zlib::Deflate::new: Bufsize must be >= 1, you specified " .
398 $got->value('Bufsize')
399 unless $got->value('Bufsize') >= 1;
400
401 my $flags = 0 ;
402 $flags |= FLAG_APPEND if $got->value('AppendOutput') ;
403 $flags |= FLAG_CRC if $got->value('CRC32') ;
404 $flags |= FLAG_ADLER if $got->value('ADLER32') ;
405
406 my $windowBits = $got->value('WindowBits');
407 $windowBits += MAX_WBITS()
408 if ($windowBits & MAX_WBITS()) == 0 ;
409
410 _deflateInit($flags,
411 $got->value('Level'),
412 $got->value('Method'),
413 $windowBits,
414 $got->value('MemLevel'),
415 $got->value('Strategy'),
416 $got->value('Bufsize'),
417 $got->value('Dictionary')) ;
418
419}
420
421sub Compress::Raw::Zlib::deflateStream::STORABLE_freeze
422{
423 my $type = ref shift;
424 croak "Cannot freeze $type object\n";
425}
426
427sub Compress::Raw::Zlib::deflateStream::STORABLE_thaw
428{
429 my $type = ref shift;
430 croak "Cannot thaw $type object\n";
431}
432
433
43418µs11µsour $OPTIONS_inflate =
# spent 1µs making 1 call to Compress::Raw::Zlib::__ANON__[Compress/Raw/Zlib.pm:114]
435 {
436 'AppendOutput' => [1, 1, Parse_boolean, 0],
437 'LimitOutput' => [1, 1, Parse_boolean, 0],
438 'CRC32' => [1, 1, Parse_boolean, 0],
439 'ADLER32' => [1, 1, Parse_boolean, 0],
440 'ConsumeInput' => [1, 1, Parse_boolean, 1],
441 'Bufsize' => [1, 1, Parse_unsigned, 4096],
442
443 'WindowBits' => [1, 1, Parse_signed, MAX_WBITS()],
444 'Dictionary' => [1, 1, Parse_any, ""],
445 } ;
446
447sub Compress::Raw::Zlib::Inflate::new
448{
449 my $pkg = shift ;
450 my ($got) = ParseParameters(0, $OPTIONS_inflate, @_);
451
452 croak "Compress::Raw::Zlib::Inflate::new: Bufsize must be >= 1, you specified " .
453 $got->value('Bufsize')
454 unless $got->value('Bufsize') >= 1;
455
456 my $flags = 0 ;
457 $flags |= FLAG_APPEND if $got->value('AppendOutput') ;
458 $flags |= FLAG_CRC if $got->value('CRC32') ;
459 $flags |= FLAG_ADLER if $got->value('ADLER32') ;
460 $flags |= FLAG_CONSUME_INPUT if $got->value('ConsumeInput') ;
461 $flags |= FLAG_LIMIT_OUTPUT if $got->value('LimitOutput') ;
462
463
464 my $windowBits = $got->value('WindowBits');
465 $windowBits += MAX_WBITS()
466 if ($windowBits & MAX_WBITS()) == 0 ;
467
468 _inflateInit($flags, $windowBits, $got->value('Bufsize'),
469 $got->value('Dictionary')) ;
470}
471
472sub Compress::Raw::Zlib::inflateStream::STORABLE_freeze
473{
474 my $type = ref shift;
475 croak "Cannot freeze $type object\n";
476}
477
478sub Compress::Raw::Zlib::inflateStream::STORABLE_thaw
479{
480 my $type = ref shift;
481 croak "Cannot thaw $type object\n";
482}
483
484sub Compress::Raw::Zlib::InflateScan::new
485{
486 my $pkg = shift ;
487 my ($got) = ParseParameters(0,
488 {
489 'CRC32' => [1, 1, Parse_boolean, 0],
490 'ADLER32' => [1, 1, Parse_boolean, 0],
491 'Bufsize' => [1, 1, Parse_unsigned, 4096],
492
493 'WindowBits' => [1, 1, Parse_signed, -MAX_WBITS()],
494 'Dictionary' => [1, 1, Parse_any, ""],
495 }, @_) ;
496
497
498 croak "Compress::Raw::Zlib::InflateScan::new: Bufsize must be >= 1, you specified " .
499 $got->value('Bufsize')
500 unless $got->value('Bufsize') >= 1;
501
502 my $flags = 0 ;
503 #$flags |= FLAG_APPEND if $got->value('AppendOutput') ;
504 $flags |= FLAG_CRC if $got->value('CRC32') ;
505 $flags |= FLAG_ADLER if $got->value('ADLER32') ;
506 #$flags |= FLAG_CONSUME_INPUT if $got->value('ConsumeInput') ;
507
508 _inflateScanInit($flags, $got->value('WindowBits'), $got->value('Bufsize'),
509 '') ;
510}
511
512sub Compress::Raw::Zlib::inflateScanStream::createDeflateStream
513{
514 my $pkg = shift ;
515 my ($got) = ParseParameters(0,
516 {
517 'AppendOutput' => [1, 1, Parse_boolean, 0],
518 'CRC32' => [1, 1, Parse_boolean, 0],
519 'ADLER32' => [1, 1, Parse_boolean, 0],
520 'Bufsize' => [1, 1, Parse_unsigned, 4096],
521
522 'Level' => [1, 1, Parse_signed, Z_DEFAULT_COMPRESSION()],
523 'Method' => [1, 1, Parse_unsigned, Z_DEFLATED()],
524 'WindowBits' => [1, 1, Parse_signed, - MAX_WBITS()],
525 'MemLevel' => [1, 1, Parse_unsigned, MAX_MEM_LEVEL()],
526 'Strategy' => [1, 1, Parse_unsigned, Z_DEFAULT_STRATEGY()],
527 }, @_) ;
528
529 croak "Compress::Raw::Zlib::InflateScan::createDeflateStream: Bufsize must be >= 1, you specified " .
530 $got->value('Bufsize')
531 unless $got->value('Bufsize') >= 1;
532
533 my $flags = 0 ;
534 $flags |= FLAG_APPEND if $got->value('AppendOutput') ;
535 $flags |= FLAG_CRC if $got->value('CRC32') ;
536 $flags |= FLAG_ADLER if $got->value('ADLER32') ;
537
538 $pkg->_createDeflateStream($flags,
539 $got->value('Level'),
540 $got->value('Method'),
541 $got->value('WindowBits'),
542 $got->value('MemLevel'),
543 $got->value('Strategy'),
544 $got->value('Bufsize'),
545 ) ;
546
547}
548
549sub Compress::Raw::Zlib::inflateScanStream::inflate
550{
551 my $self = shift ;
552 my $buffer = $_[1];
553 my $eof = $_[2];
554
555 my $status = $self->scan(@_);
556
557 if ($status == Z_OK() && $_[2]) {
558 my $byte = ' ';
559
560 $status = $self->scan(\$byte, $_[1]) ;
561 }
562
563 return $status ;
564}
565
566sub Compress::Raw::Zlib::deflateStream::deflateParams
567{
568 my $self = shift ;
569 my ($got) = ParseParameters(0, {
570 'Level' => [1, 1, Parse_signed, undef],
571 'Strategy' => [1, 1, Parse_unsigned, undef],
572 'Bufsize' => [1, 1, Parse_unsigned, undef],
573 },
574 @_) ;
575
576 croak "Compress::Raw::Zlib::deflateParams needs Level and/or Strategy"
577 unless $got->parsed('Level') + $got->parsed('Strategy') +
578 $got->parsed('Bufsize');
579
580 croak "Compress::Raw::Zlib::Inflate::deflateParams: Bufsize must be >= 1, you specified " .
581 $got->value('Bufsize')
582 if $got->parsed('Bufsize') && $got->value('Bufsize') <= 1;
583
584 my $flags = 0;
585 $flags |= 1 if $got->parsed('Level') ;
586 $flags |= 2 if $got->parsed('Strategy') ;
587 $flags |= 4 if $got->parsed('Bufsize') ;
588
589 $self->_deflateParams($flags, $got->value('Level'),
590 $got->value('Strategy'), $got->value('Bufsize'));
591
592}
593
594
595121µs1;
596__END__
 
# spent 11µs within Compress::Raw::Zlib::CORE:subst which was called 5 times, avg 2µs/call: # 5 times (11µs+0s) by Compress::Raw::Zlib::AUTOLOAD at line 110, avg 2µs/call
sub Compress::Raw::Zlib::CORE:subst; # opcode
# spent 2µs within Compress::Raw::Zlib::constant which was called 5 times, avg 400ns/call: # 5 times (2µs+0s) by Compress::Raw::Zlib::AUTOLOAD at line 111, avg 400ns/call
sub Compress::Raw::Zlib::constant; # xsub
Report produced by the NYTProf 6.12 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.