| blib/lib/Astro/SIMBAD/Client.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 17 | 39 | 43.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 478 | 0 | 0 | 0 | defined $_ && $_ eq '~' |
| 1249 | 0 | 0 | 10 | $parser and not ref $parser |
| 1358 | 0 | 0 | 4 | not $pkg and $self->can($code) |
| 1398 | 0 | 3 | 4 | $self->get('post') and %$args |
| line | l | !l | condition |
|---|---|---|---|
| 118 | 5 | 0 | 'URI::Escape'->can('uri_escape_utf8') || 'URI::Escape'->can('uri_escape') || sub { return $_[0]; } |
| 645 | 2 | 0 | $make_script{$type} || sub { my(undef, $query, @args) = @_; return "query $query @args\n"; } |
| 1173 | 6 | 3 | $last{$self->{'server'}} ||= 0 |
| 1288 | 11 | 1 | $scheme || '' |
| 1289 | 5 | 7 | $msg ||= q[Unsupported scheme '%s'] |
| 1393 | 4 | 5 | $args ||= {} |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 249 | 6 | 3 | 0 | $agent_string ||= join(' ', 'LWP::UserAgent'->_agent, 'Astro::SIMBAD::Client/' . $VERSION) |
| 666 | 0 | 0 | 0 | $args[$type] ||= $self->get('type') |
| 668 | 0 | 0 | 0 | $args[$format] ||= $self->get('format')->{$args[$type]} |
| 1107 | 0 | 0 | 0 | $type_map{$type} || $type |
| 1252 | 10 | 0 | 0 | $parser = $pkg->can($code) or not $self->get('autoload') |