Branch Coverage

blib/lib/IO/Compress/Gzip.pm
Criterion Covered Total %
branch 59 62 95.1


line true false branch
20 24 0 if (defined &utf8::downgrade) { }
92 27 443 if $got->getValue("merge")
99 377 66 unless ($got->parsed("time"))
106 80 363 if ($got->parsed("name") and defined $got->getValue("name"))
109 2 78 if $strict and $name =~ /\x00/
113 1 77 if $strict and $name =~ /$IO::Compress::Gzip::GZIP_FNAME_INVALID_CHAR_RE/o
118 38 402 if ($got->parsed("comment") and defined $got->getValue("comment"))
121 2 36 if $strict and $comment =~ /\x00/
125 1 35 if $strict and $comment =~ /$IO::Compress::Gzip::GZIP_FCOMMENT_INVALID_CHAR_RE/o
130 6 431 if ($got->parsed("os_code"))
133 1 5 if $value < 0 or $value > 255
141 435 1 unless ($got->parsed("extraflags"))
142 1 434 if $got->getValue("level") == Z_BEST_COMPRESSION()
144 1 434 if $got->getValue("level") == Z_BEST_SPEED()
149 82 354 if (defined $data)
151 20 62 if $bad
181 44 66 if IO::Compress::Base::Common::isaScalar($filename)
185 59 7 unless $params->parsed("name")
188 59 7 if not $params->parsed("time")
199 35 383 if $param->getValue("minimal")
206 7 376 if $param->getValue("textflag")
207 51 332 if $param->getValue("headercrc")
208 62 321 if $param->wantValue("extrafield")
209 86 297 if $param->wantValue("name")
210 53 330 if $param->wantValue("comment")
233 62 321 if ($flags & 4)
239 86 297 if ($flags & 8)
244 86 0 if not length $name or substr($name, 1, -1) ne "\0"
250 53 330 if ($flags & 16)
255 53 0 if not length $comment or substr($comment, 1, -1) ne "\0"
261 51 332 if $param->getValue("headercrc")