| line |
true |
false |
branch |
|
28
|
27 |
0 |
if defined $_[1] |
|
30
|
27 |
0 |
defined $_[0] ? : |
|
44
|
1 |
1 |
ref $hash{'token'} eq 'ARRAY' ? : |
|
|
2 |
25 |
defined $hash{'token'} ? : |
|
46
|
0 |
27 |
unless (defined $$self{'quiet'}) |
|
50
|
1 |
26 |
if ($hash{'num'} eq '9') { } |
|
55
|
1 |
25 |
unless (my($sep, $group) = $hash{'num'} =~ /\A 9 ([^\d\+\-]) (9+) \z/msx) |
|
70
|
44 |
4 |
if ($fmt =~ /^ ([^%]*) % (.*) $/msx) { } |
|
72
|
1 |
43 |
unless ($portion =~ /^ (\d*) ([a-zA-Z]) (.*) $/msx) |
|
80
|
23 |
20 |
if ($repeat eq '') |
|
81
|
0 |
43 |
if ($repeat < 1) |
|
83
|
1 |
8 |
unless ($disp_code eq 'b' or $disp_code eq 'c' or $disp_code eq 'd' or $disp_code eq 'm' or $disp_code eq 'p' or $disp_code eq 'P' or $disp_code eq 't' or $disp_code eq 'k') |
|
96
|
40 |
2 |
if length $literal > 0 |
|
110
|
3 |
21 |
$$self{'mock_tm'} ? : |
|
132
|
0 |
1 |
unless ($$self{'test'}) |
|
134
|
0 |
0 |
if ($$self{'quiet'}) { } |
|
149
|
2 |
59 |
defined $_[0] ? : |
|
150
|
0 |
0 |
defined $_[0] ? : |
|
158
|
1 |
1 |
ref $tk eq 'ARRAY' ? : |
|
165
|
0 |
1 |
ref $tk eq 'ARRAY' ? : |
|
179
|
5 |
57 |
$$self{'mock_tm'} ? : |
|
185
|
0 |
62 |
if ($$self{'freq'} eq 's') { } |
|
|
0 |
62 |
elsif ($$self{'freq'} eq 'd') { } |
|
186
|
0 |
0 |
if (int $sec_prev != int $sec_now) |
|
191
|
0 |
0 |
if (int $sec_prev * 10 != int $sec_now * 10) |
|
196
|
62 |
0 |
unless ($$self{'tick'} % $$self{'freq'}) |
|
210
|
88 |
28 |
if (defined $$self{'value'}) |
|
219
|
122 |
92 |
if ($type eq '*lit') |
|
223
|
10 |
82 |
if ($type eq 't') |
|
230
|
2 |
8 |
if length $stamp > $len |
|
235
|
10 |
72 |
if ($type eq 'd') |
|
239
|
13 |
59 |
if ($type eq 'b') |
|
240
|
0 |
13 |
$$self{'target'} == $$self{'base'} ? : |
|
242
|
0 |
13 |
if ($progress < 0) { } |
|
|
0 |
13 |
elsif ($progress > $len) { } |
|
247
|
7 |
52 |
if ($type eq 'p') |
|
248
|
0 |
7 |
$$self{'target'} == $$self{'base'} ? : |
|
253
|
2 |
50 |
if ($type eq 'P') |
|
257
|
31 |
19 |
if ($type eq 'c') |
|
261
|
12 |
7 |
if ($type eq 'm') |
|
265
|
7 |
0 |
if ($type eq 'k') |
|
278
|
0 |
116 |
unless ($$self{'test'} or $$self{'quiet'}) |
|
288
|
2 |
41 |
if ($com) |
|
293
|
39 |
2 |
if ($group > 0) |
|
296
|
39 |
37 |
unless s/^([-+]?\d+)(\d{$group})/$1$sep$2/ |
|
317
|
0 |
3 |
unless open my $ifh, '<', $fname |
|
318
|
0 |
3 |
unless open my $tfh, '+>', undef |
|
328
|
0 |
4 |
if ($pos_left < 0) |
|
334
|
1 |
2 |
if (length $out_buf > $bkup_size) |
|
346
|
0 |
3 |
unless seek $tfh, 0, 0 |
|
347
|
0 |
3 |
unless open my $ofh, '>', $fname |