| lib/Consul/Simple.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 11 | 17 | 64.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 69 | 0 | 13 | 13 | $ret and $ret->is_success |
| line | l | !l | condition |
|---|---|---|---|
| 21 | 1 | 5 | $args{'consul_server'} || 'localhost' |
| 23 | 4 | 2 | $args{'kv_prefix'} || '/' |
| 38 | 0 | 6 | $args{'proto'} || 'http' |
| 39 | 0 | 6 | $args{'port'} || 8500 |
| 45 | 0 | 6 | $args{'warning_handler'} || sub { my $warnstr = shift(); my(%args) = @_; print STDERR "[WARN]: $warnstr\n"; } |
| 59 | 0 | 16 | $$self{'constructor_args'}{'retries'} || 5 |
| 60 | 0 | 16 | $$self{'constructor_args'}{'timeout'} || 2 |