view release on metacpan or  search on metacpan

lib/Astro/Catalog/Query/CMC.pm  view on Meta::CPAN

package Astro::Catalog::Query::CMC;

=head1 NAME

Astro::Catalog::Query::CMC - A query request to the Carlsberg Meridian Catalog

=head1 SYNOPSIS

    $gsc = new Astro::Catalog::Query::CMC( 
            RA        => $ra,
            Dec       => $dec,
            Radius    => $radius,
            Nout      => $number_out);

    my $catalog = $gsc->querydb();

=head1 WARNING

This code should be superceeded by the generic Vizier query class.

=head1 DESCRIPTION

The module is an object orientated interface to the online
Carlsberg Meridian Catalogues (CMC11)

Stores information about an prospective query and allows the query to
be made, returning an Astro::Catalog::Query::CMC object.

The object will by default pick up the proxy information from the HTTP_PROXY
and NO_PROXY environment variables, see the LWP::UserAgent documentation for
details.

See L<Astro::Catalog::BaseQuery> for the catalog-independent methods.

=cut

use strict;
use warnings;
use base qw/Astro::Catalog::Transport::REST/;

use File::Spec;
use Carp;

use Astro::Catalog;
use Astro::Catalog::Item;

our $VERSION = '4.38';
our $DEBUG = 0;

=begin __PRIVATE_METHODS__

=head2 Private methods

These methods are for internal use only.

=over 4

=item B<_default_remote_host>

=cut

sub _default_remote_host {
    return "vizier.u-strasbg.fr";
}

=item B<_default_url_path>

=cut

sub _default_url_path {
    return "viz-bin/asu-acl?";
}

=item B<_get_allowed_options>

Returns a hash with keys, being the internal options supported
by this subclass, and values being the key name actually required
by the remote system (and to be included in the query).

=cut

sub _get_allowed_options {
    my $self = shift;
    return (
        ra => '-c.ra',
        dec => '-c.dec',
        radmax => '-c.rm',
        nout => '-out.max',
        catalog => '-source',