line |
true |
false |
branch |
15
|
0 |
1284 |
if (@_) |
20
|
0 |
1295 |
if (@_) |
42
|
16 |
17 |
if (not defined $squelch || defined $precision) { } |
47
|
13 |
4 |
unless defined $precision |
48
|
4 |
13 |
unless defined $squelch |
57
|
0 |
13 |
unless $type and $type eq 'GLOB' || $type eq 'CODE' || $type->can('print') || $type->can('info') |
68
|
9 |
8 |
defined $self->step_id ? : |
71
|
9 |
8 |
if $type eq "GLOB" or $type->can("autoflush") |
76
|
1 |
0 |
$type->can('info') ? : |
|
7 |
1 |
$type->can('print') ? : |
|
7 |
8 |
$type eq 'CODE' ? : |
|
2 |
15 |
$type eq 'GLOB' ? : |
82
|
123 |
1158 |
if (defined $total) { } |
86
|
1158 |
0 |
unless defined $total |
89
|
1281 |
0 |
$total ? : |
92
|
1143 |
138 |
if defined $self->_last_progress and abs($formatted - $self->_last_progress) + "1e-10" < $sq |
95
|
101 |
37 |
if ($total != 1) |
96
|
101 |
0 |
int $current == $current ? : |
99
|
12 |
126 |
$message ? : |
105
|
0 |
0 |
unless defined $total |
112
|
0 |
0 |
unless defined $offset |
119
|
0 |
0 |
unless ref $data eq "HASH" |
126
|
0 |
7 |
unless length $title |
128
|
0 |
7 |
if defined $self->step_id and length $self->step_id |
138
|
7 |
0 |
if ($step_contribution) { } |