Branch Coverage

lib/SMB/Auth.pm
Criterion Covered Total %
branch 85 120 70.8


line true false branch
106 0 0 unless ref $user_passwords eq 'HASH'
177 0 0 unless open PASSWD, "<$filename"
179 0 0 unless close PASSWD
186 0 0 ($hash_str || '') =~ /^[0-9a-f]{64}$/ ? :
188 0 0 $username && $username =~ /^\w[\w.+-]*$/ && @hash_bytes ? :
206 0 1 unless $hmac
211 0 1 ref $password eq 'ARRAY' ? :
217 0 1 unless $hmac eq hmac_md5($self->server_challenge . $client_data, $ntlmv2_hash)
230 6 33 if ($len >= 128)
242 3 36 if ($tag == 4) { }
7 29 elsif ($tag == 6) { }
2 27 elsif ($tag == 10) { }
12 15 elsif ($tag == 48 or $tag == 96) { }
15 0 elsif ($tag >= 160 and $tag <= 163) { }
249 7 51 if (0 == $idx++) { }
4 47 elsif ($_ >= 128) { }
255 0 2 unless $len == 1
275 3 36 if ($tag == 4) { }
7 29 elsif ($tag == 6) { }
2 27 elsif ($tag == 10) { }
12 15 elsif ($tag == 48 or $tag == 96) { }
15 0 elsif ($tag >= 160 and $tag <= 163) { }
280 0 47 $_ >= 268435456 ? :
0 47 $_ >= 2097152 ? :
0 47 $_ >= 16384 ? :
4 43 $_ >= 128 ? :
7 47 2 == $idx ? :
7 54 0 == $idx++ ? :
308 6 33 @sub_lens ? :
319 0 6 unless @bytes > 2
323 0 6 unless $struct
325 2 4 if (not defined $self->ntlmssp_supported or $options{'is_initial'})
327 0 2 unless ref $value eq 'ARRAY' and shift @$value == 48
330 2 0 if $$_[0] == 6 and $$_[1] eq '1.3.6.1.4.1.311.2.2.10'
337 3 1 ref $value eq 'ARRAY' && shift @$value == 4 ? :
341 3 1 unless (defined $self->client_challenge)
342 0 3 unless $ntlmssp_bytes
345 0 3 unless $parser->bytes(8) eq "NTLMSSP\000"
349 1 3 if (not defined $self->client_host) { }
1 2 elsif (not defined $self->server_challenge) { }
1 1 elsif (not defined $self->client_challenge) { }
1 0 elsif (not defined $self->auth_completed) { }
350 0 1 unless $parser->uint32 == 1
360 0 1 unless $parser->uint32 == 2
369 1 5 if $itemtype == 7
372 1 4 if $itemtype == 1
374 1 4 if $itemtype == 2
376 1 4 if $itemtype == 3
378 1 4 if $itemtype == 4
382 0 1 unless $parser->uint32 == 3
402 0 1 unless ref $value eq 'ARRAY' and shift @$value == 10
404 1 0 shift @$value == 0 ? :
418 2 4 if (not defined $self->ntlmssp_supported or $options{'is_initial'})
435 1 3 if (not defined $self->client_host) { }
1 2 elsif (not defined $self->server_challenge) { }
1 1 elsif (not defined $self->client_challenge) { }
1 0 elsif (not defined $self->auth_completed) { }
595 1 0 $self->is_user_authenticated ? :
596 1 0 if $self->auth_completed
603 0 6 unless $struct