| line |
true |
false |
branch |
|
117
|
8 |
10 |
if ($line =~ /^\s*\*/) { } |
|
|
4 |
6 |
elsif ($line =~ /^\s*\[\s[^\]]+\s\]\s*$/) { } |
|
|
2 |
4 |
elsif ($line =~ /^\s*$/) { } |
|
118
|
4 |
4 |
if defined $item |
|
121
|
2 |
2 |
if defined $item |
|
128
|
4 |
0 |
if (defined $item) { } |
|
136
|
2 |
0 |
if defined $item |
|
153
|
250 |
0 |
if (defined $self->{'header'} and $self->{'header'} =~ /$regex_header/xi) { } |
|
158
|
250 |
0 |
if ($ok) { } |
|
170
|
0 |
254 |
unless ($opt =~ /^([-0-9a-z]+)\=\s*(.*\S)$/i) |
|
175
|
0 |
254 |
if (exists $f->{$k}) { } |
|
180
|
250 |
4 |
if ($k eq 'Urgency') { } |
|
|
0 |
4 |
elsif ($k eq 'Binary-Only') { } |
|
|
4 |
0 |
elsif ($k =~ /^X[BCS]+-/i) { } |
|
181
|
0 |
250 |
unless $v =~ /^([-0-9a-z]+)((\s+.*)?)$/i |
|
184
|
0 |
0 |
unless $v eq 'yes' |
|
201
|
248 |
0 |
if (defined $self->{'trailer'} and $self->{'trailer'} =~ /$regex_trailer/x) { } |
|
204
|
0 |
248 |
if ($3 ne ' ') |
|
210
|
0 |
248 |
if (defined $5 and not exists $week_day{$6}) |
|
219
|
0 |
248 |
unless (eval {
do {
my $tp = 'Time::Piece'->strptime($7, '%d %b %Y %T %z');
$self->{'trailer_timepiece'} = $tp
}
}) |
|
223
|
0 |
0 |
unless (exists $month_abbrev{$8}) |
|
226
|
0 |
0 |
if (exists $month_name{$8}) { } |
|
288
|
504 |
0 |
if (defined $self->{'header_dists'}) |
|
289
|
502 |
2 |
if wantarray |
|
306
|
1478 |
0 |
if (defined $self->{'header_fields'}) { } |
|
313
|
1034 |
444 |
if (@closes) |
|
329
|
738 |
0 |
if (exists $f->{'Urgency'}) |