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