| line |
true |
false |
branch |
|
21
|
3 |
47 |
$arg{'default_labels'} ? : |
|
34
|
59 |
138 |
unless $labels |
|
|
197 |
0 |
$self->{'default_labels'} ? : |
|
39
|
142 |
1 |
if (defined $lv) { } |
|
52
|
1 |
60 |
unless (&looks_like_number($value)) |
|
63
|
1 |
135 |
unless (&looks_like_number($value)) |
|
93
|
5 |
4 |
unless $self->{'meta'}{$name}{'buckets'} |
|
97
|
47 |
43 |
$value <= $bucket ? : |
|
|
90 |
0 |
unless $labels |
|
99
|
9 |
0 |
unless $labels |
|
110
|
0 |
2 |
unless $self->{'meta'}{$name}{'enum_values'} |
|
111
|
2 |
4 |
$value eq $ev ? : |
|
|
3 |
3 |
unless $labels |
|
118
|
13 |
16 |
if (my $old = $self->{'meta'}{$name}) |
|
119
|
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'};}))) |
|
159
|
69 |
37 |
$_ ? : |
|
164
|
97 |
14 |
$name =~ /_bucket$/ ? : |
|
168
|
97 |
0 |
$t_a eq $t_b ? : |
|
169
|
5 |
85 |
$le_b eq '+Inf' ? : |
|
|
7 |
90 |
$le_a eq '+Inf' ? : |
|
176
|
14 |
57 |
defined $self->{'meta'}{$name}{'help'} ? : |
|
|
14 |
57 |
defined $self->{'meta'}{$name}{'type'} ? : |
|
185
|
0 |
1 |
unless $env->{'REQUEST_METHOD'} eq "GET" |