| line |
true |
false |
branch |
|
115
|
0 |
14 |
if ref(my $class = shift()) |
|
118
|
1 |
13 |
unless @_ > 0 |
|
123
|
1 |
12 |
if @_ % 2 |
|
129
|
3 |
9 |
unless $ranges and 'ARRAY' eq ref $ranges and @$ranges and not grep((!($_ && 'ARRAY' eq ref $_ && @$_ >= 1 && $_->[0] >= 0)), @$ranges) |
|
147
|
2 |
21 |
unless $prev_range > $range->[0] |
|
160
|
2 |
5 |
exists $arg{'joiner'} ? : |
|
|
1 |
6 |
exists $arg{'skip_zeroes'} ? : |
|
|
3 |
4 |
exists $arg{'rounding'} ? : |
|
163
|
6 |
8 |
exists $arg{$_} && $arg{$_} && 'CODE' eq ref $arg{$_} ? : |
|
183
|
0 |
53 |
unless ref(my $self = shift()) |
|
188
|
0 |
53 |
if ($value < 0) |
|
201
|
129 |
41 |
if ($t or @result and not $self->{'skip_zeroes'}) |
|
211
|
53 |
117 |
unless defined $value |
|
218
|
0 |
53 |
$sign ? : |
|
226
|
117 |
53 |
if ($value >= $range) { } |
|
228
|
80 |
37 |
$range ? : |
|
232
|
17 |
100 |
if ($self->{'rounding'}) { } |
|
238
|
64 |
36 |
$range ? : |
|
252
|
75 |
54 |
if ($self->{'formatter'}) { } |
|
259
|
8 |
46 |
$value == 1 ? : |
|
270
|
9 |
44 |
if ($self->{'post_process'}) { } |