Branch Coverage

blib/lib/Authen/SASL/Perl/DIGEST_MD5.pm
Criterion Covered Total %
branch 22 34 64.7


line true false branch
48 6 4 if ($v =~ /^"(.*)"$/s)
51 2 8 if (exists $multi{$k}) { }
0 8 elsif (defined $sparams{$k}) { }
63 0 2 if length $challenge
68 0 2 if $sparams{'qop'} and not grep {/^auth$/;} split(/,/, $sparams{'qop'}, 0)
71 0 2 if (my(@missing) = grep({not exists $sparams{$_};} @required))
89 2 0 unless (defined $realm)
93 2 0 if (defined $realm)
98 1 1 if (defined $authzid)
103 0 2 if (defined $serv_name)
108 0 2 unless defined $user
113 0 2 unless defined $password
118 0 2 unless defined $realm
119 1 1 defined $authzid ? :
126 0 2 if $response{'qop'} and $response{'qop'} =~ /^auth-(conf|int)$/
139 0 19 if (not defined $v) { }
11 8 elsif (exists $qdval{$k}) { }