| line |
true |
false |
branch |
|
21
|
3 |
46 |
$arg{'default_labels'} ? : |
|
34
|
58 |
137 |
unless $labels |
|
|
195 |
0 |
$self->{'default_labels'} ? : |
|
47
|
1 |
59 |
unless (&looks_like_number($value)) |
|
58
|
1 |
134 |
unless (&looks_like_number($value)) |
|
88
|
5 |
4 |
unless $self->{'meta'}{$name}{'buckets'} |
|
92
|
47 |
43 |
$value <= $bucket ? : |
|
|
90 |
0 |
unless $labels |
|
94
|
9 |
0 |
unless $labels |
|
105
|
0 |
2 |
unless $self->{'meta'}{$name}{'enum_values'} |
|
106
|
2 |
4 |
$value eq $ev ? : |
|
|
3 |
3 |
unless $labels |
|
113
|
13 |
16 |
if (my $old = $self->{'meta'}{$name}) |
|
114
|
3 |
1 |
if (exists $old->{'type'} ^ exists $meta{'type'} or exists $old->{'type'} and $old->{'type'} ne $meta{'type'} or (exists $old->{'help'} ^ exists $meta{'help'} or exists $old->{'help'} and $old->{'help'} ne $meta{'help'}) or (exists $old->{'enum'} ^ exists $meta{'enum'} or exists $old->{'enum'} and $old->{'enum'} ne $meta{'enum'}) or (exists $old->{'buckets'} ^ exists $meta{'buckets'} or exists $old->{'buckets'} and @{$old->{'buckets'};} ne @{$meta{'buckets'};} || grep({$old->{'buckets'}[$_] != $meta{'buckets'}[$_];} 0 .. $#{$meta{'buckets'};})) or (exists $old->{'enum_values'} ^ exists $meta{'enum_values'} or exists $old->{'enum_values'} and @{$old->{'enum_values'};} ne @{$meta{'enum_values'};} || grep({$old->{'enum_values'}[$_] ne $meta{'enum_values'}[$_];} 0 .. $#{$meta{'enum_values'};}))) |
|
154
|
69 |
36 |
$_ ? : |
|
159
|
93 |
13 |
$name =~ /_bucket$/ ? : |
|
163
|
93 |
0 |
$t_a eq $t_b ? : |
|
164
|
4 |
86 |
$le_b eq '+Inf' ? : |
|
|
3 |
90 |
$le_a eq '+Inf' ? : |
|
171
|
14 |
56 |
defined $self->{'meta'}{$name}{'help'} ? : |
|
|
14 |
56 |
defined $self->{'meta'}{$name}{'type'} ? : |
|
180
|
0 |
1 |
unless $env->{'REQUEST_METHOD'} eq "GET" |