Branch Coverage

lib/Mail/AuthenticationResults/Parser.pm
Criterion Covered Total %
branch 85 86 98.8


line true false branch
29 11 48 if ($auth_header)
62 13 46 if ($header =~ /^Authentication-Results:/i)
72 1112 58 exists $args->{'last_non_comment_type'} ? :
74 2 1168 if (length $header == 0) { }
67 1101 elsif ($header =~ /^\(/) { }
123 978 elsif ($header =~ /^;/) { }
38 940 elsif ($header =~ /^"/) { }
77 863 elsif ($last_non_comment_type ne 'assignment' and $header =~ /^\./) { }
4 859 elsif ($last_non_comment_type eq 'assignment' and $header =~ /^\./) { }
5 854 elsif ($header =~ m[^/]) { }
251 603 elsif ($header =~ /^=/) { }
114 2 55 unless @tokenised
131 54 2 if ($token->is eq 'string') { }
1 1 elsif ($token->is eq 'comment') { }
151 7 61 if ($token->is eq 'assignment') { }
3 58 elsif ($token->is eq 'comment') { }
47 11 elsif ($token->is eq 'separator') { }
152 4 3 if ($expecting eq 'assignment') { }
153 2 2 if ($token->value eq '=') { }
170 11 5 if ($token->is eq "string")
171 9 2 if ($expecting eq 'key') { }
1 1 elsif ($expecting eq 'value') { }
186 4 44 if ($expecting ne "key")
187 2 2 if ($key->value =~ /^[0-9]+$/) { }
216 316 686 if ($token->is eq 'assignment') { }
63 623 elsif ($token->is eq 'comment') { }
64 559 elsif ($token->is eq 'separator') { }
217 314 2 if ($expecting eq 'assignment') { }
218 238 76 if ($token->value eq '=') { }
74 2 elsif ($token->value eq '.') { }
2 0 elsif ($token->value eq '/') { }
238 559 377 if ($token->is eq "string")
239 250 309 if ($expecting eq 'key') { }
73 236 elsif ($expecting eq 'keymod') { }
2 234 elsif ($expecting eq 'version') { }
232 2 elsif ($expecting eq 'value') { }
240 105 145 if (not $is_subentry) { }
241 7 98 if ($token->value eq 'none') { }
260 1 1 if ($token->value =~ /^[0-9]+$/) { }
270 90 142 if (not $is_subentry) { }
286 5 95 if ($expecting eq "no_more_after_none")
296 8 87 if ($expecting ne "key")
297 3 5 if ($is_subentry)