| line |
true |
false |
branch |
|
33
|
0 |
0 |
if (defined $self->{'is_dst_switch_last_hour'} and $self->{'is_dst_switch_last_hour'} == $t->[3] << 5 + $t->[2]) |
|
44
|
0 |
0 |
if ($t->[2] == 23) |
|
53
|
0 |
0 |
if ($time_plus_1h - $time > 4000) { } |
|
72
|
25 |
9 |
if (defined $lastmin and $lastmin->[0] == $_[1] and $lastmin->[1] == $_[2] and $lastmin->[2] == $_[3] and $lastmin->[3] == $_[4] and $lastmin->[4] == $_[5]) |
|
84
|
15 |
34 |
if ($GMT) { } |
|
87
|
6 |
9 |
if ($GMT =~ /^([\+\-])(\d\d):(\d\d)$/) |
|
89
|
5 |
1 |
if $1 eq "+" |
|
108
|
0 |
28 |
if (not $GMT || defined $self->{'dst_comp'} and defined $self->{'last_time'} and $self->{'last_time'} - $time > 1200 and $self->{'last_time'} - $time < 3600) |
|
114
|
0 |
0 |
if ($off) |
|
119
|
0 |
49 |
if (defined $self->{'dst_comp_until'} and $time > $self->{'dst_comp_until'}) |
|
135
|
0 |
0 |
unless setlocale(2, $locale) |
|
147
|
0 |
8 |
unless defined $file |
|
148
|
1 |
7 |
unless %data |
|
149
|
1 |
7 |
unless (defined $data{'year'}) |
|
152
|
7 |
1 |
unless defined $data{'type'} |
|
155
|
0 |
8 |
if (UNIVERSAL::isa($file, 'IO::Handle')) { } |
|
|
0 |
8 |
elsif (UNIVERSAL::isa($file, 'File::Tail')) { } |
|
|
8 |
0 |
elsif (not ref $file) { } |
|
163
|
0 |
8 |
if ($file eq '-') { } |
|
169
|
0 |
8 |
unless defined $data{'file'} |
|
176
|
0 |
8 |
if (defined $data{'locale'}) |
|
177
|
0 |
0 |
if (ref $data{'locale'} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $data{'locale'} eq '') { } |
|
196
|
7 |
55 |
if ($mon == 0) { } |
|
|
3 |
52 |
elsif ($mon == 11) { } |
|
197
|
3 |
4 |
if defined $self->{'_last_mon'} and $self->{'_last_mon'} == 11 |
|
201
|
1 |
2 |
if ($self->{'enable_year_decrement'}) |
|
202
|
1 |
0 |
if defined $self->{'_last_mon'} and $self->{'_last_mon'} != 11 |
|
216
|
0 |
82 |
if (defined $self->{'filetail'}) { } |
|
257
|
0 |
71 |
unless ($str =~ /^
(\S{3})\s+(\d+) # date -- 1, 2
\s
(\d+):(\d+):(\d+) # time -- 3, 4, 5
(?:\s<\w+\.\w+>)? # FreeBSD's verbose-mode
\s
([-\w\.\@:]+) # host -- 6
\s+
(?:\[LOG_[A-Z]+\]\s+)? # FreeBSD
(.*) # text -- 7
$/x or $str =~ /^
(\d\d\d\d)-(\d\d)-(\d\d) # RFC3339 or syslog-ng ISO date -- 1, 2, 3
T
(\d+):(\d+):(\d+)(?:\.\d+)? # time (optional frac_sec) -- 4, 5, 6
(Z|[\+\-]\d\d:\d\d) # TZ -- 7
\s
([-\w\.\@:]+) # host -- 8
\s+
(.*) # text -- 9
$/x) |
|
263
|
59 |
12 |
if (defined $months_map{$1}) { } |
|
265
|
0 |
59 |
unless defined $mon |
|
273
|
71 |
0 |
unless ($self->{'allow_future'}) |
|
275
|
0 |
71 |
if ($time - time > 86400) |
|
281
|
19 |
52 |
if ($text =~ /^(?:last message repeated|above message repeats) (\d+) time/) |
|
282
|
0 |
19 |
if defined $self->{'repeat'} and not $self->{'repeat'} |
|
283
|
3 |
16 |
unless defined $self->{'_last_data'}{$host} |
|
284
|
0 |
16 |
unless ($1 > 0) |
|
294
|
1 |
51 |
if $text eq "-- MARK --" |
|
311
|
0 |
51 |
unless ($text =~ /^
([^:]+?) # program -- 1
(?:\[(\d+)\])? # PID -- 2
:\s+
(?:\[ID\ (\d+)\ ([a-z0-9]+)\.([a-z]+)\]\ )? # Solaris 8 "message id" -- 3, 4, 5
(.*) # text -- 6
$/x) |
|
316
|
0 |
51 |
if ($self->{'arrayref'}) { } |
|
358
|
0 |
3 |
unless ($str =~ /^
(\S{3})\s+(\d+) # date -- 1, 2
\s
(\d+):(\d+):(\d+) # time -- 3, 4, 5
# host is not logged
\s+
(.*) # text -- 6
$/x) |
|
364
|
0 |
3 |
unless defined $mon |
|
379
|
0 |
3 |
unless ($text =~ /^
\[(.*?)\] # program -- 1
# no PID
\s+
(.*) # text -- 2
$/x) |
|
384
|
0 |
3 |
if ($self->{'arrayref'}) { } |
|
408
|
187 |
4 |
if ($self->{'type'} eq 'syslog') { } |
|
|
4 |
0 |
elsif ($self->{'type'} eq 'metalog') { } |