Branch Coverage

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


line true false branch
35 9 0 unless delete $args->{'results'}
45 7 1 $string =~ s/^\s*([.\w-]*\w)// ? :
48 3 5 $string =~ s/^\s*([0-9]+)// ? :
57 3 9 if ($string =~ s/^\s*none//)
65 0 9 unless $string =~ s/^\s*([\w-]*\w)//
69 1 8 if ($string =~ s[^\s*/][])
71 1 0 if $string =~ s/^\s*([0-9]+)//
75 9 0 if ($string =~ s/^\s*\=//)
77 9 0 if $string =~ s/^\s*(\w+)//
82 3 6 if ($comment)
87 2 7 if ($string =~ s/\s*reason//)
89 2 0 if ($string =~ s/\s*\=//)
91 0 0 if $string =~ s/^\"([^"]*)\"// or $string =~ s/^\'([^']*)\'// or $string =~ s/^(\w+)//
100 4 9 if $string =~ /^\s*\;/
102 8 1 $string =~ s/^\s*([\w-]+)// ? :
106 8 0 if ($string =~ s/^\s*\.//)
108 8 0 $string =~ s/^\s*([\w-]+)// ? :
110 8 0 if ($string =~ s/^\s*\=//)
113 0 8 unless $string =~ s/^\"([^"]*)\"// or $string =~ s/^\'([^']*)\'// or $string =~ s/^([\w\@.-]+)//
120 8 0 if (defined $value) { }
137 0 3 if $version != 1
143 1 2 if $r->{'method_version'} != 1
148 1 2 if defined $r->{'comment'}
150 0 3 if (my $reason = $r->{'reason'})
156 10 2 unless index($prop, ".") != -1
165 1 2 unless @results
188 9 2 @_ == 1 ? :
189 0 11 unless $r->{'method'} and $r->{'result'}