| blib/lib/Astro/DSS/JPEG.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 27 | 27 | 100.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 174 | 1 | 2 | 1 | defined $opts{'ra'} && defined $opts{'dec'} |
| 1 | 1 | 3 | $opts{'target'} and not defined $opts{'ra'} && defined $opts{'dec'} | |
| 212 | 7 | 3 | 4 | defined $opts{'ra'} and $opts{'ra'} =~ /([+-]?[0-9.]+)[ h]+([0-9.]+)[ m\x{2032}']+([0-9.]+)/ |
| 215 | 6 | 3 | 5 | defined $opts{'dec'} and $opts{'dec'} =~ /([+-]?[0-9.]+)[ d\260]+([0-9.]+)[ m\x{2032}']+([0-9.]+)/ |
| line | l | !l | condition |
|---|---|---|---|
| 161 | 1 | 2 | $opts{'dss_url'} || 'http://gsss.stsci.edu/webservices/dssjpg/dss.svc/GetImage' |
| 163 | 1 | 2 | $opts{'simbad_url'} || 'http://simbad.u-strasbg.fr/simbad/sim-id' |
| 224 | 5 | 3 | $opts{'angular_size'} ||= 30 |
| 225 | 4 | 4 | $opts{'pixel_size'} ||= 1000 |
| 228 | 3 | 1 | $1 || 30 |
| 232 | 2 | 1 | $1 || 1000 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 165 | 1 | 1 | 1 | $opts{'ua'} || 'LWP::UserAgent'->new('agent', "perl/Astro::DSS::JPEG/$VERSION") |