| line |
true |
false |
branch |
|
15
|
0 |
0 |
if $$self{'logfh'} |
|
18
|
0 |
0 |
if (open $fh, ">>$file") { } |
|
43
|
0 |
0 |
if exists $$opts{'_opts'} |
|
44
|
0 |
0 |
if @$args > 2 |
|
48
|
0 |
0 |
if ($$opts{'read'} or not $$self{'read_log'}) { } |
|
|
0 |
0 |
elsif (exists $$self{'logs'}{$tag}) { } |
|
|
0 |
0 |
elsif ($tag eq 'cmd') { } |
|
54
|
0 |
0 |
if (not output_is_captured()) { } |
|
55
|
0 |
0 |
$tag eq 'cmd' ? : |
|
60
|
0 |
0 |
unless $$opts{'nonu'} |
|
65
|
0 |
0 |
if (@$args) { } |
|
|
0 |
0 |
elsif ($tag eq 'cmd' and defined $$self{'config'}{'maxlines'}) { } |
|
67
|
0 |
0 |
if /^[+-]?\d+$/ |
|
68
|
0 |
0 |
ref $_ ? : |
|
71
|
0 |
0 |
unless $_ =~ /$regex/ |
|
72
|
0 |
0 |
if ++$done |
|
74
|
0 |
0 |
unless $done |
|
75
|
0 |
0 |
if (@$args == 0 or $$args[0] == $$args[1]) { } |
|
81
|
0 |
0 |
unless defined $$args[1] |
|
84
|
0 |
0 |
if $_ == 0 or $_ < -$total or $_ > $total |
|
86
|
0 |
0 |
if $_ < 0 |
|
88
|
0 |
0 |
if ($$args[0] > $$args[1]) |
|
89
|
0 |
0 |
$$opts{'reverse'} ? : |
|
101
|
0 |
0 |
$$opts{'reverse'} ? : |
|
106
|
0 |
0 |
$tag ? : |
|
107
|
0 |
0 |
if ($$self{'config'}{'keep'}) |
|
110
|
0 |
0 |
unless %tags |
|
112
|
0 |
0 |
if (not $file) { } |
|
|
0 |
0 |
elsif (-e $file and not -r _) { } |
|
|
0 |
0 |
elsif (-s _) { } |
|
126
|
0 |
0 |
unless /-\s*\[\s*(\d+),\s*(\d+)\s*,\s*(\w+)\s*,\s*"(.*?)"\s*\]\s*$/ |
|
127
|
0 |
0 |
if exists $tags{$3} and $2 < $$self{'init_time'} || $1 == $$self{'pid'} |
|
138
|
0 |
0 |
$2 ? : |
|
|
0 |
0 |
$1 ? : |
|
140
|
0 |
0 |
if ($$self{'config'}{'keep'}{$_}) |
|
141
|
0 |
0 |
if @t > $$self{'config'}{'keep'}{$_} |
|
145
|
0 |
0 |
if $_ eq $tag |
|
146
|
0 |
0 |
if $_ eq 'cmd' |
|
150
|
0 |
0 |
wantarray ? : |
|
158
|
0 |
0 |
unless $$self{'settings'}{'interactive'} and $$self{'logfh'} |
|
161
|
0 |
0 |
unless $$self{'config'}{'no_duplicates'} and $cmd eq $$self{'prev_cmd'} |
|
170
|
0 |
0 |
if $type eq 'cmd' |
|
171
|
0 |
0 |
if (exists $$self{'config'}{'keep'}{$type}) |
|
173
|
0 |
0 |
unless ($$self{'config'}{'no_duplicates'} and $string eq $$self{'logs'}{$type}[-1]) |
|
176
|
0 |
0 |
if @{$$self{'logs'}{$type};} > $$self{'config'}{'keep'}{$type} |
|
179
|
0 |
0 |
unless $$self{'logfh'} |
|
188
|
0 |
0 |
unless $$self{'logfh'} |
|
191
|
0 |
0 |
defined $$self{'config'}{'maxlines'} ? : |
|
193
|
0 |
0 |
unless defined $max |
|
196
|
0 |
0 |
unless open IN, $file |
|
198
|
0 |
0 |
unless close IN |
|
200
|
0 |
0 |
unless open OUT, ">$file" |
|
311
|
0 |
0 |
if exists $$opt{'_opts'} |
|
312
|
0 |
0 |
if $$args[0] =~ /=/ |
|
313
|
0 |
0 |
if @$args > 2 |
|
317
|
0 |
0 |
$$opt{'list'} ? : |
|
|
0 |
0 |
if (not $first) { } |
|
|
0 |
0 |
elsif (not $last) { } |
|
318
|
0 |
0 |
$$opt{'list'} ? : |
|
322
|
0 |
0 |
if $$opt{'list'} |
|
327
|
0 |
0 |
if @replace |
|
329
|
0 |
0 |
if (not $$opt{'-s'} || $editor eq '-') { } |
|
332
|
0 |
0 |
unless eval 'require File::Temp' |
|
338
|
0 |
0 |
if $@ |
|
339
|
0 |
0 |
unless open TMP, $file |
|
347
|
0 |
0 |
if length $cmd |