Branch Coverage

blib/lib/Authen/NTLM/HTTP/Base.pm
Criterion Covered Total %
branch 53 90 58.8


line true false branch
126 0 1 unless @_ == 3 or @_ == 7
129 0 1 unless (defined $user)
130 0 1 unless (defined $user_domain)
131 0 1 unless (defined $domain)
132 0 1 unless (defined $machine)
133 0 1 unless length $lm_hpw == 21
134 0 1 unless length $nt_hpw == 21
135 0 1 unless defined $user
136 0 1 unless defined $user_domain
137 0 1 unless defined $domain
138 0 1 unless defined $machine
156 0 1 unless @_ == 1 or @_ == 2
158 0 1 unless (defined $domain)
159 0 1 unless defined $domain
182 0 2 if ($Authen::NTLM::HTTP::Base::PurePerl) { }
202 0 2 if ($Authen::NTLM::HTTP::Base::PurePerl == 1) { }
242 0 2 unless substr($pkt, 0, 8) eq "NTLMSSP\000"
244 0 2 unless $type == 1
260 1 1 if @_ == 3
265 1 1 if ($_[1] & 65536) { }
266 1 0 if ($_[1] & 1) { }
277 1 1 if (defined $nonce) { }
280 1 1 if ($_[1] & 65536)
283 1 0 if ($_[1] & 1) { }
301 0 2 unless substr($pkt, 0, 8) eq "NTLMSSP\000"
303 0 2 unless $type == 2
308 1 1 if ($flags & 65536)
310 1 0 if $flags & 1
368 2 0 if ($_[2] & 1) { }
397 0 2 unless substr($pkt, 0, 8) eq "NTLMSSP\000"
399 0 2 unless $type == 3
404 2 0 if $flags & 1
406 2 0 if $flags & 1
408 2 0 if $flags & 1
438 1 0 if ($ulNegate & 1)
439 1 0 if ($ulNegate & 2)
451 0 16 unless length $in_key == 7
476 0 128 unless length $byte == 1
479 342 682 if ($ordbyte & 1)
483 70 58 if ($parity % 2 == 0)
484 14 56 if ($ordbyte & 1) { }
504 0 4 unless length $key == 21
505 0 4 unless length $nonce == 8
506 0 4 if ($Authen::NTLM::HTTP::Base::PurePerl) { }
530 0 7 if length($str) % 2