← 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/Compress/Raw/Zlib.pm
StatementsExecuted 793 statements in 9.80ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
211602µs995µsCompress::Raw::Zlib::Parameters::::parse Compress::Raw::Zlib::Parameters::parse
2621320µs367µsCompress::Raw::Zlib::Parameters::::_checkType Compress::Raw::Zlib::Parameters::_checkType
842227µs294µsCompress::Raw::Zlib::::AUTOLOAD Compress::Raw::Zlib::AUTOLOAD
211190µs1.67msCompress::Raw::Zlib::Inflate::::new Compress::Raw::Zlib::Inflate::new
211181µs1.20msCompress::Raw::Zlib::::ParseParameters Compress::Raw::Zlib::ParseParameters
211170µs170µsCompress::Raw::Zlib::inflateStream::::inflate Compress::Raw::Zlib::inflateStream::inflate (xsub)
211160µs160µsCompress::Raw::Zlib::::_inflateInit Compress::Raw::Zlib::_inflateInit (xsub)
1881120µs120µsCompress::Raw::Zlib::Parameters::::value Compress::Raw::Zlib::Parameters::value
2292113µs113µsCompress::Raw::Zlib::::__ANON__[:114] Compress::Raw::Zlib::__ANON__[:114]
182163µs63µsCompress::Raw::Zlib::::CORE:subst Compress::Raw::Zlib::CORE:subst (opcode)
11150µs446µsCompress::Raw::Zlib::::BEGIN@6 Compress::Raw::Zlib::BEGIN@6
11148µs150µsCompress::Raw::Zlib::::BEGIN@106 Compress::Raw::Zlib::BEGIN@106
102147µs47µsCompress::Raw::Zlib::::CORE:match Compress::Raw::Zlib::CORE:match (opcode)
11145µs396µsCompress::Raw::Zlib::::BEGIN@105 Compress::Raw::Zlib::BEGIN@105
11140µs46µsCompress::Raw::Zlib::::BEGIN@8 Compress::Raw::Zlib::BEGIN@8
11134µs141µsCompress::Raw::Zlib::::BEGIN@138 Compress::Raw::Zlib::BEGIN@138
81131µs31µsCompress::Raw::Zlib::::constant Compress::Raw::Zlib::constant (xsub)
11131µs127µsCompress::Raw::Zlib::::BEGIN@150 Compress::Raw::Zlib::BEGIN@150
11128µs32µsCompress::Raw::Zlib::::BEGIN@10 Compress::Raw::Zlib::BEGIN@10
11127µs118µsCompress::Raw::Zlib::::BEGIN@120 Compress::Raw::Zlib::BEGIN@120
11126µs503µsCompress::Raw::Zlib::::BEGIN@113 Compress::Raw::Zlib::BEGIN@113
21124µs24µsCompress::Raw::Zlib::inflateStream::::DESTROY Compress::Raw::Zlib::inflateStream::DESTROY (xsub)
21124µs24µsCompress::Raw::Zlib::Parameters::::new Compress::Raw::Zlib::Parameters::new
11121µs108µsCompress::Raw::Zlib::::BEGIN@146 Compress::Raw::Zlib::BEGIN@146
11121µs33µsCompress::Raw::Zlib::::BEGIN@9 Compress::Raw::Zlib::BEGIN@9
11120µs119µsCompress::Raw::Zlib::::BEGIN@121 Compress::Raw::Zlib::BEGIN@121
11119µs93µsCompress::Raw::Zlib::::BEGIN@145 Compress::Raw::Zlib::BEGIN@145
11116µs117µsCompress::Raw::Zlib::::BEGIN@118 Compress::Raw::Zlib::BEGIN@118
11115µs105µsCompress::Raw::Zlib::::BEGIN@136 Compress::Raw::Zlib::BEGIN@136
11115µs91µsCompress::Raw::Zlib::::BEGIN@137 Compress::Raw::Zlib::BEGIN@137
11115µs105µsCompress::Raw::Zlib::::BEGIN@119 Compress::Raw::Zlib::BEGIN@119
11115µs90µsCompress::Raw::Zlib::::BEGIN@122 Compress::Raw::Zlib::BEGIN@122
11114µs86µsCompress::Raw::Zlib::::BEGIN@149 Compress::Raw::Zlib::BEGIN@149
11114µs101µsCompress::Raw::Zlib::::BEGIN@139 Compress::Raw::Zlib::BEGIN@139
11114µs87µsCompress::Raw::Zlib::::BEGIN@147 Compress::Raw::Zlib::BEGIN@147
11112µs84µsCompress::Raw::Zlib::::BEGIN@148 Compress::Raw::Zlib::BEGIN@148
0000s0sCompress::Raw::Zlib::Deflate::::new Compress::Raw::Zlib::Deflate::new
0000s0sCompress::Raw::Zlib::InflateScan::::new Compress::Raw::Zlib::InflateScan::new
0000s0sCompress::Raw::Zlib::Parameters::::parsed Compress::Raw::Zlib::Parameters::parsed
0000s0sCompress::Raw::Zlib::Parameters::::setError Compress::Raw::Zlib::Parameters::setError
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
4125µsrequire 5.006 ;
512µsrequire Exporter;
62141µs2842µs
# spent 446µs (50+396) within Compress::Raw::Zlib::BEGIN@6 which was called: # once (50µs+396µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 6
use Carp ;
# spent 446µs making 1 call to Compress::Raw::Zlib::BEGIN@6 # spent 396µs making 1 call to Exporter::import
7
8248µs251µs
# spent 46µs (40+6) within Compress::Raw::Zlib::BEGIN@8 which was called: # once (40µs+6µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 8
use strict ;
# spent 46µs making 1 call to Compress::Raw::Zlib::BEGIN@8 # spent 6µs making 1 call to strict::import
92100µs246µs
# spent 33µs (21+12) within Compress::Raw::Zlib::BEGIN@9 which was called: # once (21µs+12µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 9
use warnings ;
# spent 33µs making 1 call to Compress::Raw::Zlib::BEGIN@9 # spent 12µs making 1 call to warnings::import
102991µs236µs
# spent 32µs (28+4) within Compress::Raw::Zlib::BEGIN@10 which was called: # once (28µs+4µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 10
use bytes ;
# spent 32µs making 1 call to Compress::Raw::Zlib::BEGIN@10 # spent 4µs making 1 call to bytes::import
11our ($VERSION, $XS_VERSION, @ISA, @EXPORT, %EXPORT_TAGS, @EXPORT_OK, $AUTOLOAD, %DEFLATE_CONSTANTS, @DEFLATE_CONSTANTS);
12
1311µs$VERSION = '2.069';
1411µs$XS_VERSION = $VERSION;
15127µs$VERSION = eval $VERSION;
# spent 7µs executing statements in string eval
16
17119µs@ISA = qw(Exporter);
18114µ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
5215µ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.
57116µ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
10312µspush @EXPORT, qw(crc32 adler32 DEF_WBITS);
104
1052124µs2747µs
# spent 396µs (45+351) within Compress::Raw::Zlib::BEGIN@105 which was called: # once (45µs+351µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 105
use constant WANT_GZIP => 16;
# spent 396µs making 1 call to Compress::Raw::Zlib::BEGIN@105 # spent 351µs making 1 call to constant::import
1062152µs2251µs
# spent 150µs (48+101) within Compress::Raw::Zlib::BEGIN@106 which was called: # once (48µs+101µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 106
use constant WANT_GZIP_OR_ZLIB => 32;
# spent 150µs making 1 call to Compress::Raw::Zlib::BEGIN@106 # spent 101µs making 1 call to constant::import
107
108
# spent 294µs (227+67) within Compress::Raw::Zlib::AUTOLOAD which was called 8 times, avg 37µs/call: # 5 times (148µs+47µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 377, avg 39µs/call # once (28µs+12µs) by IO::Uncompress::Adapter::Inflate::uncompr at line 66 of IO/Uncompress/Adapter/Inflate.pm # once (32µs+5µs) by IO::Uncompress::Adapter::Inflate::mkUncompObject at line 42 of IO/Uncompress/Adapter/Inflate.pm # once (19µs+3µs) by IO::Uncompress::Adapter::Inflate::uncompr at line 72 of IO/Uncompress/Adapter/Inflate.pm
sub AUTOLOAD {
10986µs my($constname);
110891µs836µs ($constname = $AUTOLOAD) =~ s/.*:://;
# spent 36µs making 8 calls to Compress::Raw::Zlib::CORE:subst, avg 4µs/call
111873µs831µs my ($error, $val) = constant($constname);
# spent 31µs making 8 calls to Compress::Raw::Zlib::constant, avg 4µs/call
11286µs Carp::croak $error if $error;
1132236µs2981µs
# spent 503µs (26+478) within Compress::Raw::Zlib::BEGIN@113 which was called: # once (26µs+478µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 113
no strict 'refs';
# spent 503µs making 1 call to Compress::Raw::Zlib::BEGIN@113 # spent 478µs making 1 call to strict::unimport
11430187µs
# spent 113µs within Compress::Raw::Zlib::__ANON__[/usr/libdata/perl5/amd64-openbsd/Compress/Raw/Zlib.pm:114] which was called 22 times, avg 5µs/call: # 8 times (21µs+0s) by IO::Uncompress::Adapter::Inflate::mkUncompObject or IO::Uncompress::Adapter::Inflate::uncompr or IO::Uncompress::RawInflate::BEGIN@8 at line 115, avg 3µs/call # 3 times (16µs+0s) by IO::Uncompress::Adapter::Inflate::uncompr at line 66 of IO/Uncompress/Adapter/Inflate.pm, avg 5µs/call # 2 times (34µs+0s) by IO::Uncompress::Adapter::Inflate::mkUncompObject at line 34 of IO/Uncompress/Adapter/Inflate.pm, avg 17µs/call # 2 times (5µs+0s) by Compress::Raw::Zlib::Inflate::new at line 465, avg 2µs/call # 2 times (4µs+0s) by IO::Uncompress::Adapter::Inflate::uncompr at line 73 of IO/Uncompress/Adapter/Inflate.pm, avg 2µs/call # 2 times (4µs+0s) by IO::Uncompress::Adapter::Inflate::uncompr at line 74 of IO/Uncompress/Adapter/Inflate.pm, avg 2µs/call # once (21µs+0s) by IO::Uncompress::Adapter::Inflate::mkUncompObject at line 42 of IO/Uncompress/Adapter/Inflate.pm # once (6µs+0s) by IO::Uncompress::Adapter::Inflate::uncompr at line 72 of IO/Uncompress/Adapter/Inflate.pm # once (2µs+0s) by IO::Uncompress::RawInflate::BEGIN@8 at line 434
*{$AUTOLOAD} = sub { $val };
115875µs821µs goto &{$AUTOLOAD};
# spent 21µs making 8 calls to Compress::Raw::Zlib::__ANON__[Compress/Raw/Zlib.pm:114], avg 3µs/call
116}
117
118252µs2218µs
# spent 117µs (16+101) within Compress::Raw::Zlib::BEGIN@118 which was called: # once (16µs+101µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 118
use constant FLAG_APPEND => 1 ;
# spent 117µs making 1 call to Compress::Raw::Zlib::BEGIN@118 # spent 101µs making 1 call to constant::import
119268µs2196µs
# spent 105µs (15+91) within Compress::Raw::Zlib::BEGIN@119 which was called: # once (15µs+91µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 119
use constant FLAG_CRC => 2 ;
# spent 105µs making 1 call to Compress::Raw::Zlib::BEGIN@119 # spent 91µs making 1 call to constant::import
120260µs2209µs
# spent 118µs (27+91) within Compress::Raw::Zlib::BEGIN@120 which was called: # once (27µs+91µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 120
use constant FLAG_ADLER => 4 ;
# spent 118µs making 1 call to Compress::Raw::Zlib::BEGIN@120 # spent 91µs making 1 call to constant::import
121280µs2218µs
# spent 119µs (20+99) within Compress::Raw::Zlib::BEGIN@121 which was called: # once (20µs+99µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 121
use constant FLAG_CONSUME_INPUT => 8 ;
# spent 119µs making 1 call to Compress::Raw::Zlib::BEGIN@121 # spent 99µs making 1 call to constant::import
1222178µs2165µs
# spent 90µs (15+75) within Compress::Raw::Zlib::BEGIN@122 which was called: # once (15µs+75µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 122
use constant FLAG_LIMIT_OUTPUT => 16 ;
# spent 90µs making 1 call to Compress::Raw::Zlib::BEGIN@122 # spent 75µs making 1 call to constant::import
123
124eval {
12512µs require XSLoader;
1261806µs1785µs XSLoader::load('Compress::Raw::Zlib', $XS_VERSION);
# spent 785µs making 1 call to XSLoader::load
12712µs 1;
128}
12912µsor do {
130 require DynaLoader;
131 local @ISA = qw(DynaLoader);
132 bootstrap Compress::Raw::Zlib $XS_VERSION ;
133};
134
135
136254µs2196µs
# spent 105µs (15+90) within Compress::Raw::Zlib::BEGIN@136 which was called: # once (15µs+90µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 136
use constant Parse_any => 0x01;
# spent 105µs making 1 call to Compress::Raw::Zlib::BEGIN@136 # spent 90µs making 1 call to constant::import
137271µs2167µs
# spent 91µs (15+76) within Compress::Raw::Zlib::BEGIN@137 which was called: # once (15µs+76µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 137
use constant Parse_unsigned => 0x02;
# spent 91µs making 1 call to Compress::Raw::Zlib::BEGIN@137 # spent 76µs making 1 call to constant::import
138249µs2249µs
# spent 141µs (34+107) within Compress::Raw::Zlib::BEGIN@138 which was called: # once (34µs+107µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 138
use constant Parse_signed => 0x04;
# spent 141µs making 1 call to Compress::Raw::Zlib::BEGIN@138 # spent 107µs making 1 call to constant::import
139262µs2188µs
# spent 101µs (14+87) within Compress::Raw::Zlib::BEGIN@139 which was called: # once (14µs+87µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 139
use constant Parse_boolean => 0x08;
# spent 101µs making 1 call to Compress::Raw::Zlib::BEGIN@139 # spent 87µ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
145245µs2166µs
# spent 93µs (19+74) within Compress::Raw::Zlib::BEGIN@145 which was called: # once (19µs+74µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 145
use constant OFF_PARSED => 0 ;
# spent 93µs making 1 call to Compress::Raw::Zlib::BEGIN@145 # spent 74µs making 1 call to constant::import
146274µs2194µs
# spent 108µs (21+86) within Compress::Raw::Zlib::BEGIN@146 which was called: # once (21µs+86µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 146
use constant OFF_TYPE => 1 ;
# spent 108µs making 1 call to Compress::Raw::Zlib::BEGIN@146 # spent 86µs making 1 call to constant::import
147244µs2161µs
# spent 87µs (14+74) within Compress::Raw::Zlib::BEGIN@147 which was called: # once (14µs+74µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 147
use constant OFF_DEFAULT => 2 ;
# spent 87µs making 1 call to Compress::Raw::Zlib::BEGIN@147 # spent 74µs making 1 call to constant::import
148243µs2155µs
# spent 84µs (12+71) within Compress::Raw::Zlib::BEGIN@148 which was called: # once (12µs+71µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 148
use constant OFF_FIXED => 3 ;
# spent 84µs making 1 call to Compress::Raw::Zlib::BEGIN@148 # spent 71µs making 1 call to constant::import
149263µs2157µs
# spent 86µs (14+72) within Compress::Raw::Zlib::BEGIN@149 which was called: # once (14µs+72µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 149
use constant OFF_FIRST_ONLY => 4 ;
# spent 86µs making 1 call to Compress::Raw::Zlib::BEGIN@149 # spent 72µs making 1 call to constant::import
15023.93ms2222µs
# spent 127µs (31+96) within Compress::Raw::Zlib::BEGIN@150 which was called: # once (31µs+96µs) by IO::Uncompress::RawInflate::BEGIN@8 at line 150
use constant OFF_STICKY => 5 ;
# spent 127µs making 1 call to Compress::Raw::Zlib::BEGIN@150 # spent 96µs making 1 call to constant::import
151
- -
154sub ParseParameters
155
# spent 1.20ms (181µs+1.02) within Compress::Raw::Zlib::ParseParameters which was called 2 times, avg 600µs/call: # 2 times (181µs+1.02ms) by Compress::Raw::Zlib::Inflate::new at line 450, avg 600µs/call
{
15622µs my $level = shift || 0 ;
157
158243µs my $sub = (caller($level + 1))[3] ;
159 #local $Carp::CarpLevel = 1 ;
160220µs224µs my $p = new Compress::Raw::Zlib::Parameters() ;
# spent 24µs making 2 calls to Compress::Raw::Zlib::Parameters::new, avg 12µs/call
161210µs2995µs $p->parse(@_)
# spent 995µs making 2 calls to Compress::Raw::Zlib::Parameters::parse, avg 498µs/call
162 or croak "$sub: $p->{Error}" ;
163
164210µs return $p;
165}
166
167
168sub Compress::Raw::Zlib::Parameters::new
169
# spent 24µs within Compress::Raw::Zlib::Parameters::new which was called 2 times, avg 12µs/call: # 2 times (24µs+0s) by Compress::Raw::Zlib::ParseParameters at line 160, avg 12µs/call
{
17022µs my $class = shift ;
171
172215µs my $obj = { Error => '',
173 Got => {},
174 } ;
175
176 #return bless $obj, ref($class) || $class || __PACKAGE__ ;
177245µs 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
# spent 995µs (602+394) within Compress::Raw::Zlib::Parameters::parse which was called 2 times, avg 498µs/call: # 2 times (602µs+394µs) by Compress::Raw::Zlib::ParseParameters at line 161, avg 498µs/call
{
19822µs my $self = shift ;
199
20022µs my $default = shift ;
201
20225µs my $got = $self->{Got} ;
20324µs my $firstTime = keys %{ $got } == 0 ;
204
20522µs my (@Bad) ;
20623µs my @entered = () ;
207
208 # Allow the options to be passed as a hash reference or
209 # as the complete hash.
21025µs 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 {
22422µs my $count = @_;
22522µs return $self->setError("Expected even number of parameters, got $count")
226 if $count % 2 != 0 ;
227
228222µs for my $i (0.. $count / 2 - 1) {
2291012µs push @entered, $_[2* $i] ;
2301017µs push @entered, \$_[2* $i+1] ;
231 }
232 }
233
234
235274µs while (my ($key, $v) = each %$default)
236 {
2371613µs croak "need 4 params [@$v]"
238 if @$v != 4 ;
239
2401625µs my ($first_only, $sticky, $type, $value) = @$v ;
2411611µs my $x ;
2421675µs16191µs $self->_checkType($key, \$value, $type, 0, \$x)
# spent 191µs making 16 calls to Compress::Raw::Zlib::Parameters::_checkType, avg 12µs/call
243 or return undef ;
244
2451618µs $key = lc $key;
246
2471674µs if ($firstTime || ! $sticky) {
248 $got->{$key} = [0, $type, $value, $x, $first_only, $sticky] ;
249 }
250
2511618µs $got->{$key}[OFF_PARSED] = 0 ;
252 }
253
25427µs for my $i (0.. @entered / 2 - 1) {
2551010µs my $key = $entered[2* $i] ;
256109µs my $value = $entered[2* $i+1] ;
257
258 #print "Key [$key] Value [$value]" ;
259 #print defined $$value ? "[$$value]\n" : "[undef]\n";
260
2611074µs1027µs $key =~ s/^-// ;
# spent 27µs making 10 calls to Compress::Raw::Zlib::CORE:subst, avg 3µs/call
2621011µs my $canonkey = lc $key;
263
2641035µs if ($got->{$canonkey} && ($firstTime ||
265 ! $got->{$canonkey}[OFF_FIRST_ONLY] ))
266 {
2671010µs my $type = $got->{$canonkey}[OFF_TYPE] ;
268106µs my $s ;
2691029µs10176µs $self->_checkType($key, $value, $type, 1, \$s)
# spent 176µs making 10 calls to Compress::Raw::Zlib::Parameters::_checkType, avg 18µs/call
270 or return undef ;
271 #$value = $$value unless $type & Parse_store_ref ;
272107µs $value = $$value ;
2731019µs $got->{$canonkey} = [1, $type, $value, $s] ;
274 }
275 else
276 { push (@Bad, $key) }
277 }
278
27922µs if (@Bad) {
280 my ($bad) = join(", ", @Bad) ;
281 return $self->setError("unknown key value(s) @Bad") ;
282 }
283
284210µs return 1;
285}
286
287sub Compress::Raw::Zlib::Parameters::_checkType
288
# spent 367µs (320+47) within Compress::Raw::Zlib::Parameters::_checkType which was called 26 times, avg 14µs/call: # 16 times (191µs+0s) by Compress::Raw::Zlib::Parameters::parse at line 242, avg 12µs/call # 10 times (128µs+47µs) by Compress::Raw::Zlib::Parameters::parse at line 269, avg 18µs/call
{
2892620µs my $self = shift ;
290
2912620µs my $key = shift ;
2922620µs my $value = shift ;
2932618µs my $type = shift ;
2942618µs my $validate = shift ;
2952618µs 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
3082620µs $value = $$value ;
309
3102627µs if ($type & Parse_any)
311 {
31222µs $$output = $value ;
313210µs return 1;
314 }
315 elsif ($type & Parse_unsigned)
316 {
31722µs return $self->setError("Parameter '$key' must be an unsigned int, got 'undef'")
318 if $validate && ! defined $value ;
31922µs return $self->setError("Parameter '$key' must be an unsigned int, got '$value'")
320 if $validate && $value !~ /^\d+$/;
321
32222µs $$output = defined $value ? $value : 0 ;
32327µs return 1;
324 }
325 elsif ($type & Parse_signed)
326 {
32744µs return $self->setError("Parameter '$key' must be a signed int, got 'undef'")
328 if $validate && ! defined $value ;
329414µs25µs return $self->setError("Parameter '$key' must be a signed int, got '$value'")
# spent 5µs making 2 calls to Compress::Raw::Zlib::CORE:match, avg 2µs/call
330 if $validate && $value !~ /^-?\d+$/;
331
33244µs $$output = defined $value ? $value : 0 ;
333413µs return 1 ;
334 }
335 elsif ($type & Parse_boolean)
336 {
3371878µs842µs return $self->setError("Parameter '$key' must be an int, got '$value'")
# spent 42µs making 8 calls to Compress::Raw::Zlib::CORE:match, avg 5µs/call
338 if $validate && defined $value && $value !~ /^\d*$/;
3391816µs $$output = defined $value ? $value != 0 : 0 ;
3401869µs 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
# spent 120µs within Compress::Raw::Zlib::Parameters::value which was called 18 times, avg 7µs/call: # 4 times (18µs+0s) by Compress::Raw::Zlib::Inflate::new at line 468, avg 5µs/call # 2 times (34µs+0s) by Compress::Raw::Zlib::Inflate::new at line 452, avg 17µs/call # 2 times (18µs+0s) by Compress::Raw::Zlib::Inflate::new at line 457, avg 9µs/call # 2 times (10µs+0s) by Compress::Raw::Zlib::Inflate::new at line 458, avg 5µs/call # 2 times (10µs+0s) by Compress::Raw::Zlib::Inflate::new at line 460, avg 5µs/call # 2 times (10µs+0s) by Compress::Raw::Zlib::Inflate::new at line 464, avg 5µs/call # 2 times (10µs+0s) by Compress::Raw::Zlib::Inflate::new at line 461, avg 5µs/call # 2 times (10µs+0s) by Compress::Raw::Zlib::Inflate::new at line 459, avg 5µs/call
{
3641814µs my $self = shift ;
3651823µs my $name = shift ;
366
3671814µs 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
3741880µs return $self->{Got}{lc $name}[OFF_FIXED] ;
375}
376
377152µs5194µsour $OPTIONS_deflate =
# spent 194µs making 5 calls to Compress::Raw::Zlib::AUTOLOAD, avg 39µ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
434113µs12µsour $OPTIONS_inflate =
# spent 2µ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
# spent 1.67ms (190µs+1.48) within Compress::Raw::Zlib::Inflate::new which was called 2 times, avg 837µs/call: # 2 times (190µs+1.48ms) by IO::Uncompress::Adapter::Inflate::mkUncompObject at line 34 of IO/Uncompress/Adapter/Inflate.pm, avg 837µs/call
{
449212µs my $pkg = shift ;
450268µs21.20ms my ($got) = ParseParameters(0, $OPTIONS_inflate, @_);
# spent 1.20ms making 2 calls to Compress::Raw::Zlib::ParseParameters, avg 600µs/call
451
452228µs234µs croak "Compress::Raw::Zlib::Inflate::new: Bufsize must be >= 1, you specified " .
# spent 34µs making 2 calls to Compress::Raw::Zlib::Parameters::value, avg 17µs/call
453 $got->value('Bufsize')
454 unless $got->value('Bufsize') >= 1;
455
45622µs my $flags = 0 ;
45727µs218µs $flags |= FLAG_APPEND if $got->value('AppendOutput') ;
# spent 18µs making 2 calls to Compress::Raw::Zlib::Parameters::value, avg 9µs/call
45827µs210µs $flags |= FLAG_CRC if $got->value('CRC32') ;
# spent 10µs making 2 calls to Compress::Raw::Zlib::Parameters::value, avg 5µs/call
45927µs210µs $flags |= FLAG_ADLER if $got->value('ADLER32') ;
# spent 10µs making 2 calls to Compress::Raw::Zlib::Parameters::value, avg 5µs/call
46027µs210µs $flags |= FLAG_CONSUME_INPUT if $got->value('ConsumeInput') ;
# spent 10µs making 2 calls to Compress::Raw::Zlib::Parameters::value, avg 5µs/call
46127µs210µs $flags |= FLAG_LIMIT_OUTPUT if $got->value('LimitOutput') ;
# spent 10µs making 2 calls to Compress::Raw::Zlib::Parameters::value, avg 5µs/call
462
463
46427µs210µs my $windowBits = $got->value('WindowBits');
# spent 10µs making 2 calls to Compress::Raw::Zlib::Parameters::value, avg 5µs/call
46527µs25µs $windowBits += MAX_WBITS()
# spent 5µs making 2 calls to Compress::Raw::Zlib::__ANON__[Compress/Raw/Zlib.pm:114], avg 2µs/call
466 if ($windowBits & MAX_WBITS()) == 0 ;
467
4682211µs6178µs _inflateInit($flags, $windowBits, $got->value('Bufsize'),
# spent 160µs making 2 calls to Compress::Raw::Zlib::_inflateInit, avg 80µs/call # spent 18µs making 4 calls to Compress::Raw::Zlib::Parameters::value, avg 5µs/call
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
595162µs1;
596__END__
 
# spent 47µs within Compress::Raw::Zlib::CORE:match which was called 10 times, avg 5µs/call: # 8 times (42µs+0s) by Compress::Raw::Zlib::Parameters::_checkType at line 337, avg 5µs/call # 2 times (5µs+0s) by Compress::Raw::Zlib::Parameters::_checkType at line 329, avg 2µs/call
sub Compress::Raw::Zlib::CORE:match; # opcode
# spent 63µs within Compress::Raw::Zlib::CORE:subst which was called 18 times, avg 3µs/call: # 10 times (27µs+0s) by Compress::Raw::Zlib::Parameters::parse at line 261, avg 3µs/call # 8 times (36µs+0s) by Compress::Raw::Zlib::AUTOLOAD at line 110, avg 4µs/call
sub Compress::Raw::Zlib::CORE:subst; # opcode
# spent 160µs within Compress::Raw::Zlib::_inflateInit which was called 2 times, avg 80µs/call: # 2 times (160µs+0s) by Compress::Raw::Zlib::Inflate::new at line 468, avg 80µs/call
sub Compress::Raw::Zlib::_inflateInit; # xsub
# spent 31µs within Compress::Raw::Zlib::constant which was called 8 times, avg 4µs/call: # 8 times (31µs+0s) by Compress::Raw::Zlib::AUTOLOAD at line 111, avg 4µs/call
sub Compress::Raw::Zlib::constant; # xsub
# spent 24µs within Compress::Raw::Zlib::inflateStream::DESTROY which was called 2 times, avg 12µs/call: # 2 times (24µs+0s) by OpenBSD::PackageLocation::deref at line 285 of OpenBSD/PackageLocation.pm, avg 12µs/call
sub Compress::Raw::Zlib::inflateStream::DESTROY; # xsub
# spent 170µs within Compress::Raw::Zlib::inflateStream::inflate which was called 2 times, avg 85µs/call: # 2 times (170µs+0s) by IO::Uncompress::Adapter::Inflate::uncompr at line 63 of IO/Uncompress/Adapter/Inflate.pm, avg 85µs/call
sub Compress::Raw::Zlib::inflateStream::inflate; # xsub
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.