Branch Coverage

blib/lib/Mail/Message/Field/AuthResults.pm
Criterion Covered Total %
branch 40 56 71.4


line true false branch
28 9 0 unless delete $args->{'results'}
38 7 1 $string =~ s/^\s*([.\w-]*\w)// ? :
41 3 5 $string =~ s/^\s*([0-9]+)// ? :
50 3 9 if ($string =~ s/^\s*none//)
58 0 9 unless $string =~ s/^\s*([\w-]*\w)//
62 1 8 if ($string =~ s[^\s*/][])
64 1 0 if $string =~ s/^\s*([0-9]+)//
68 9 0 if ($string =~ s/^\s*\=//)
70 9 0 if $string =~ s/^\s*(\w+)//
75 3 6 if ($comment)
80 2 7 if ($string =~ s/\s*reason//)
82 2 0 if ($string =~ s/\s*\=//)
84 0 0 if $string =~ s/^\"([^"]*)\"// or $string =~ s/^\'([^']*)\'// or $string =~ s/^(\w+)//
93 4 9 if $string =~ /^\s*\;/
95 8 1 $string =~ s/^\s*([\w-]+)// ? :
99 8 0 if ($string =~ s/^\s*\.//)
101 8 0 $string =~ s/^\s*([\w-]+)// ? :
103 8 0 if ($string =~ s/^\s*\=//)
106 0 8 unless $string =~ s/^\"([^"]*)\"// or $string =~ s/^\'([^']*)\'// or $string =~ s/^([\w\@.-]+)//
115 8 0 if (defined $value) { }
132 0 3 if $version != 1
138 1 2 if $r->{'method_version'} != 1
143 1 2 if defined $r->{'comment'}
145 0 3 if (my $reason = $r->{'reason'})
151 10 2 unless index($prop, ".") > -1
160 1 2 unless @results
186 9 2 @_ == 1 ? :
187 0 11 unless $r->{'method'} and $r->{'result'}