| line |
true |
false |
branch |
|
177
|
0 |
284 |
unless my $caller_id = shift() |
|
183
|
0 |
284 |
unless defined $state_of{$caller_id} |
|
191
|
0 |
284 |
unless defined $state_of{$caller_id}{-'outfh'} |
|
227
|
0 |
25 |
unless my $caller_id = $$href{-'caller_id'} |
|
234
|
0 |
25 |
unless my $outfh = $$href{-'outfh'} |
|
313
|
1 |
7 |
if (ref $arg) |
|
315
|
1 |
0 |
if ($stringy =~ /HASH/) |
|
317
|
1 |
0 |
if (defined $packed_args{-'file'}) |
|
322
|
0 |
1 |
unless open $outfh, '>', $out_filename |
|
348
|
7 |
0 |
if ($arg eq '-ENV' or substr($arg, 0, 1) eq '#') |
|
357
|
0 |
0 |
if (not -w $arg) { } |
|
369
|
24 |
1 |
unless ($outfh) |
|
390
|
4 |
5 |
if ($arg eq '-ENV') { } |
|
392
|
1 |
3 |
unless $env_filters |
|
400
|
0 |
24 |
if (my(@unknowns) = grep({not /$intro/;} @intros)) |
|
406
|
2 |
22 |
if (@intros) |
|
431
|
1 |
3 |
if ($dc_env) |
|
440
|
2 |
1 |
if ($sc_env) |
|
480
|
1 |
2 |
unless ($env =~ /\A \s* 1 \s* \Z/msx) |
|
767
|
12 |
9 |
$signal_flag ? : |
|
775
|
0 |
28 |
/^$hws*[%\@]/ ? : |
|
917
|
0 |
0 |
if ($hours) { } |
|
|
0 |
0 |
elsif ($minutes) { } |
|
|
0 |
0 |
elsif ($seconds > 10) { } |
|
918
|
0 |
0 |
$hours == 1 ? : |
|
|
0 |
0 |
$minutes < 55 ? : |
|
|
0 |
0 |
$minutes < 35 ? : |
|
|
0 |
0 |
$minutes < 25 ? : |
|
|
0 |
0 |
$minutes < 5 ? : |
|
928
|
0 |
0 |
if $minutes == 1 |
|
961
|
4 |
25 |
if (@$moving >= $average_over) |
|
984
|
1256 |
334 |
unless $_[0] =~ /$pat/ |
|
1020
|
29 |
5 |
if ($not_first) { } |
|
1028
|
29 |
0 |
$max > 0 ? : |
|
1035
|
0 |
29 |
unless $not_first < 0 or $at == $max or $motion > $forupdatequantum |
|
1040
|
29 |
0 |
$fraction ? : |
|
1067
|
34 |
0 |
if (my($left, $fill, $leader, $right) = _prog_pat($mesg)) |
|
1075
|
0 |
34 |
if $fillwidth < $minfillwidth |
|
1084
|
5 |
29 |
$at == $max ? : |
|
1086
|
6 |
28 |
if $fillend < 0 |
|
1101
|
0 |
0 |
if ($elapsed >= $showstarttime and $at < $max and $showing{$data} || $remaining && $remaining >= $showmaxtime) |
|
1115
|
5 |
29 |
if $at >= $max |
|
1146
|
297 |
3 |
if ($$not_first_ref) { } |
|
1156
|
300 |
0 |
if (my($left, $fill, $leader, $right) = _prog_pat($mesg)) |
|
1164
|
0 |
300 |
if $fillwidth < $minfillwidth |
|
1175
|
266 |
34 |
if length $fill and $prev_length == $length |
|
1216
|
0 |
158 |
unless print {$outfh;} @_ |
|
1287
|
0 |
49 |
unless defined $state_of{$caller_id} |
|
1400
|
0 |
49 |
unless my $caller_id = $hash{-'caller_id'} |
|
1430
|
21 |
28 |
if ($no_newline) { } |
|
1440
|
14 |
35 |
if ($prefix and not $defined_varref) |
|
1442
|
9 |
5 |
if $spacer_required |
|
1492
|
7 |
28 |
if $spacer_required |