| blib/lib/Astro/SIMBAD/Client.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 17 | 39 | 43.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 486 | 0 | 0 | 0 | defined $_ && $_ eq '~' |
| 1262 | 0 | 0 | 10 | $parser and not ref $parser |
| 1371 | 0 | 0 | 4 | not $pkg and $self->can($code) |
| 1411 | 0 | 3 | 4 | $self->get("post") and %$args |
| line | l | !l | condition |
|---|---|---|---|
| 126 | 5 | 0 | 'URI::Escape'->can('uri_escape_utf8') || 'URI::Escape'->can('uri_escape') || sub { return $_[0]; } |
| 653 | 2 | 0 | $make_script{$type} || sub { my(undef, $query, @args) = @_; return "query $query @args\n"; } |
| 1186 | 6 | 3 | $last{$self->{'server'}} ||= 0 |
| 1301 | 11 | 1 | $scheme || '' |
| 1302 | 5 | 7 | $msg ||= "Unsupported scheme '%s'" |
| 1406 | 4 | 5 | $args ||= {} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 257 | 6 | 3 | 0 | $agent_string ||= join(" ", "LWP::UserAgent"->_agent, "Astro::SIMBAD::Client/" . $VERSION) |
| 674 | 0 | 0 | 0 | $args[$type] ||= $self->get("type") |
| 676 | 0 | 0 | 0 | $args[$format] ||= $self->get("format")->{$args[$type]} |
| 1117 | 0 | 0 | 0 | $type_map{$type} || $type |
| 1265 | 10 | 0 | 0 | $parser = $pkg->can($code) or not $self->get("autoload") |