| line |
true |
false |
branch |
|
28
|
28 |
0 |
if defined $_[1] |
|
30
|
28 |
0 |
defined $_[0] ? : |
|
44
|
1 |
1 |
ref $hash{'token'} eq 'ARRAY' ? : |
|
|
2 |
26 |
defined $hash{'token'} ? : |
|
46
|
0 |
28 |
unless (defined $self->{'quiet'}) |
|
50
|
1 |
27 |
if ($hash{'num'} eq '9') { } |
|
55
|
1 |
26 |
unless (my($sep, $group) = $hash{'num'} =~ /\A 9 ([^\d\+\-]) (9+) \z/msx) |
|
70
|
45 |
4 |
if ($fmt =~ /^ ([^%]*) % (.*) $/msx) { } |
|
72
|
1 |
44 |
unless ($portion =~ /^ (\d*) ([a-zA-Z]) (.*) $/msx) |
|
80
|
24 |
20 |
if ($repeat eq '') |
|
81
|
0 |
44 |
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
|
41 |
2 |
if length $literal > 0 |
|
110
|
3 |
22 |
$self->{'mock_tm'} ? : |
|
132
|
0 |
1 |
unless ($self->{'test'}) |
|
134
|
0 |
0 |
if ($self->{'quiet'}) { } |
|
151
|
0 |
0 |
unless ($self->{'test'} or $self->{'quiet'}) |
|
162
|
0 |
0 |
unless ($self->{'test'} or $self->{'quiet'}) |
|
174
|
2 |
59 |
defined $_[0] ? : |
|
175
|
0 |
0 |
defined $_[0] ? : |
|
183
|
1 |
1 |
ref $tk eq 'ARRAY' ? : |
|
190
|
0 |
1 |
ref $tk eq 'ARRAY' ? : |
|
204
|
5 |
57 |
$self->{'mock_tm'} ? : |
|
210
|
0 |
62 |
if ($self->{'freq'} eq 's') { } |
|
|
0 |
62 |
elsif ($self->{'freq'} eq 'd') { } |
|
211
|
0 |
0 |
if (int $sec_prev != int $sec_now) |
|
216
|
0 |
0 |
if (int $sec_prev * 10 != int $sec_now * 10) |
|
221
|
62 |
0 |
unless ($self->{'tick'} % $self->{'freq'}) |
|
235
|
89 |
29 |
if (defined $self->{'value'}) |
|
244
|
123 |
93 |
if ($type eq '*lit') |
|
248
|
10 |
83 |
if ($type eq 't') |
|
255
|
2 |
8 |
if length $stamp > $len |
|
260
|
10 |
73 |
if ($type eq 'd') |
|
264
|
13 |
60 |
if ($type eq 'b') |
|
266
|
0 |
13 |
$self->{'target'} == $self->{'base'} ? : |
|
267
|
0 |
13 |
if ($progress < 0) { } |
|
|
0 |
13 |
elsif ($progress > $len) { } |
|
272
|
7 |
53 |
if ($type eq 'p') |
|
274
|
0 |
7 |
$self->{'target'} == $self->{'base'} ? : |
|
278
|
2 |
51 |
if ($type eq 'P') |
|
282
|
32 |
19 |
if ($type eq 'c') |
|
286
|
12 |
7 |
if ($type eq 'm') |
|
290
|
7 |
0 |
if ($type eq 'k') |
|
303
|
0 |
0 |
unless ($self->{'test'} or $self->{'quiet'}) |
|
313
|
2 |
42 |
if ($com) |
|
318
|
40 |
2 |
if ($group > 0) |
|
321
|
40 |
37 |
unless s/^([-+]?\d+)(\d{$group})/$1$sep$2/ |
|
342
|
0 |
3 |
unless open my $ifh, '<', $fname |
|
343
|
0 |
3 |
unless open my $tfh, '+>', undef |
|
353
|
0 |
4 |
if ($pos_left < 0) |
|
359
|
1 |
2 |
if (length $out_buf > $bkup_size) |
|
371
|
0 |
3 |
unless seek $tfh, 0, 0 |
|
372
|
0 |
3 |
unless open my $ofh, '>', $fname |