| line |
true |
false |
branch |
|
33
|
27 |
0 |
if defined $_[1] |
|
35
|
27 |
0 |
defined $_[0] ? : |
|
49
|
1 |
1 |
ref $hash{'token'} eq 'ARRAY' ? : |
|
|
2 |
25 |
defined $hash{'token'} ? : |
|
51
|
0 |
27 |
unless (defined $$self{'quiet'}) |
|
55
|
1 |
26 |
if ($hash{'num'} eq '9') { } |
|
60
|
1 |
25 |
unless (my($sep, $group) = $hash{'num'} =~ /\A 9 ([^\d\+\-]) (9+) \z/msx) |
|
75
|
44 |
4 |
if ($fmt =~ /^ ([^%]*) % (.*) $/msx) { } |
|
77
|
1 |
43 |
unless ($portion =~ /^ (\d*) ([a-zA-Z]) (.*) $/msx) |
|
85
|
23 |
20 |
if ($repeat eq '') |
|
86
|
0 |
43 |
if ($repeat < 1) |
|
88
|
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') |
|
101
|
40 |
2 |
if length $literal > 0 |
|
115
|
3 |
21 |
$$self{'mock_tm'} ? : |
|
137
|
0 |
1 |
unless ($$self{'test'}) |
|
139
|
0 |
0 |
if ($$self{'quiet'}) { } |
|
154
|
2 |
59 |
defined $_[0] ? : |
|
155
|
0 |
0 |
defined $_[0] ? : |
|
163
|
1 |
1 |
ref $tk eq 'ARRAY' ? : |
|
170
|
0 |
1 |
ref $tk eq 'ARRAY' ? : |
|
184
|
5 |
57 |
$$self{'mock_tm'} ? : |
|
190
|
0 |
62 |
if ($$self{'freq'} eq 's') { } |
|
|
0 |
62 |
elsif ($$self{'freq'} eq 'd') { } |
|
191
|
0 |
0 |
if (int $sec_prev != int $sec_now) |
|
196
|
0 |
0 |
if (int $sec_prev * 10 != int $sec_now * 10) |
|
201
|
62 |
0 |
unless ($$self{'tick'} % $$self{'freq'}) |
|
215
|
88 |
28 |
if (defined $$self{'value'}) |
|
224
|
122 |
92 |
if ($type eq '*lit') |
|
228
|
10 |
82 |
if ($type eq 't') |
|
235
|
2 |
8 |
if length $stamp > $len |
|
240
|
10 |
72 |
if ($type eq 'd') |
|
244
|
13 |
59 |
if ($type eq 'b') |
|
245
|
0 |
13 |
$$self{'target'} == $$self{'base'} ? : |
|
247
|
0 |
13 |
if ($progress < 0) { } |
|
|
0 |
13 |
elsif ($progress > $len) { } |
|
252
|
7 |
52 |
if ($type eq 'p') |
|
253
|
0 |
7 |
$$self{'target'} == $$self{'base'} ? : |
|
258
|
2 |
50 |
if ($type eq 'P') |
|
262
|
31 |
19 |
if ($type eq 'c') |
|
266
|
12 |
7 |
if ($type eq 'm') |
|
270
|
7 |
0 |
if ($type eq 'k') |
|
283
|
0 |
116 |
unless ($$self{'test'} or $$self{'quiet'}) |
|
293
|
2 |
41 |
if ($com) |
|
298
|
39 |
2 |
if ($group > 0) |
|
301
|
39 |
37 |
unless s/^([-+]?\d+)(\d{$group})/$1$sep$2/ |
|
322
|
0 |
3 |
unless open my $ifh, '<', $fname |
|
323
|
0 |
3 |
unless open my $tfh, '+>', undef |
|
333
|
0 |
4 |
if ($pos_left < 0) |
|
339
|
1 |
2 |
if (length $out_buf > $bkup_size) |
|
351
|
0 |
3 |
unless seek $tfh, 0, 0 |
|
352
|
0 |
3 |
unless open my $ofh, '>', $fname |