| line |
true |
false |
branch |
|
23
|
0 |
6 |
unless -f $$self{'file'} |
|
25
|
0 |
6 |
unless open my $fh, "$$self{'file'}" |
|
36
|
6 |
0 |
if ($$self{'file'} =~ m[([^/]+)/([^/]+)/([^/]+)/([^/]+)$]) { } |
|
40
|
6 |
0 |
if ($4 =~ /(\d{4})-(\d{2})-(\d{2})\.(\d{2})(\d{2})(\d{2})/) |
|
54
|
6 |
0 |
if ($$self{'offset'}) { } |
|
61
|
0 |
0 |
unless $self->next_message |
|
127
|
1 |
25 |
unless (defined $line) |
|
136
|
19 |
6 |
if ($line =~ /$line_match_with_time/) { } |
|
|
3 |
3 |
elsif ($line =~ /$line_match_with_date_and_time/) { } |
|
|
2 |
1 |
elsif ($line =~ /$line_match_with_euro_date_and_time/) { } |
|
|
1 |
0 |
elsif ($line =~ /$line_match_with_iso_date_and_time/) { } |
|
165
|
6 |
19 |
if ($year) |
|
166
|
3 |
3 |
unless length $year == 4 |
|
173
|
22 |
5 |
if (/$line_match/) |
|
192
|
6 |
19 |
if ($date) |
|
202
|
1 |
24 |
if ($time =~ / PM/) |
|
212
|
1 |
24 |
if ($pm) |
|
216
|
9 |
16 |
if (not $date and $dtclone->epoch < $$self{'dt'}->epoch) |
|
226
|
25 |
0 |
if ($msg =~ /^(.*?): /) { } |
|
227
|
6 |
19 |
if ($1 eq $receiver) { } |
|
|
7 |
12 |
elsif ($1 ne $sender) { } |
|
290
|
0 |
7 |
unless defined $time |