Astro-Catalog

 view release on metacpan or  search on metacpan

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

Returns a hash with keys and no values (this makes it easy to
check for the option).

This method also returns, the values from the parent class.

=cut

sub _translate_one_to_one {
    my $self = shift;
    # convert to a hash-list
    return ($self->SUPER::_translate_one_to_one,
            map { $_, undef }(qw/
                catalog
                /)
           );
}

1;

__END__

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

Returns a hash with keys and no values (this makes it easy to
check for the option).

This method also returns, the values from the parent class.

=cut

sub _translate_one_to_one {
    my $self = shift;
    # convert to a hash-list
    return ($self->SUPER::_translate_one_to_one,
            map { $_, undef }(qw/
                catalog
                /)
           );
}

1;

__END__

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

Returns a hash with keys and no values (this makes it easy to
check for the option).

This method also returns, the values from the parent class.

=cut

sub _translate_one_to_one {
    my $self = shift;
    # convert to a hash-list
    return ($self->SUPER::_translate_one_to_one,
            map { $_, undef }(qw/
                chart epoch catalogue
                /)
           );
}


sub _from_multi {
    my $self = shift;
    my $key = "multi";

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

Returns a hash with keys and no values (this makes it easy to
check for the option).

This method also returns the values from the parent class.

=cut

sub _translate_one_to_one {
    my $self = shift;
    # convert to a hash-list
    return ($self->SUPER::_translate_one_to_one,
            map {$_, undef} (qw/
                year month day obscode
                ra dec radius limit
                which mot tmot mpcsort
                needed ps type textarea
                /)
           );
}

1;

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

Returns a hash with keys and no values (this makes it easy to
check for the option).

This method also returns, the values from the parent class.

=cut

sub _translate_one_to_one {
    my $self = shift;
    # convert to a hash-list
    return ($self->SUPER::_translate_one_to_one,
            map { $_, undef }(qw/
                bibyear1 bibyear2 radunits
                _protocol _catall _mesdisp _nbident
                _coordepoch _coordequi _coordframe
                _epoch1 _frame1 _equi1
                _epoch2 _frame2 _equi2
                _epoch3 _frame3 _equi3
                /)
           );
}

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

probably not that helpful. This will be reconsidered if demand
is high.

=cut

sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto;

    # Instantiate via base class
    my $block = $class->SUPER::new(@_);

    return $block;
}

=back

=head2 Accessor methods

=over 4

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

    # the object so that it won't get clobbered. Otherwise the
    # super class configure will not be able to get the information
    # it needs. We can not simply store this in options since configure
    # does not know it is an allowed option...
    $self->_selected_catalog( $cat );

    # delete catalog from list
    delete $args{catalog};

    # Configure
    $self->SUPER::configure(%args);
}

=item B<_build_query>

Construct a query URL based on the options.

    $url = $q->_build_query();

=cut

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

Returns a hash with keys and no values (this makes it easy to
check for the option).

This method also returns, the values from the parent class.

=cut

sub _translate_one_to_one {
    my $self = shift;
    # convert to a hash-list
    return ($self->SUPER::_translate_one_to_one,
            map { $_, undef }(qw/
                cond
                /)
           );
}

1;

__END__

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

    short_name:     SSScat_UKI@WFAU

    long_name:      SuperCOSMOS catalog - red (ESOR) southern survey
    short_name:     SSScat_ESOR@WFAU

    $q = new Astro::Catalog::Query::SuperCOSMOS(colour => 'UKJ', %options);

Allowed options are 'UKJ', 'UKR', 'UKI', and 'ESOR' for the UK Blue, UK Red,
UK near-IR and ESO Red catalogues respectively.

All other options are passed on to SUPER::new().

=cut

sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto;

    # Instantiate via base class
    my $block = $class->SUPER::new( @_ );

    return $block;
}

=back

=head2 Accessor methods

=over 4

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

    elsif ($colour eq 'esor') {
        $self->_selected_catalog('ssscat_esor@wfau');

    }
    else {
        # default to UKR
        $self->_selected_catalog('SSScat_UKR@WFAU');
    }

    # Configure
    $self->SUPER::configure(%args);
}

=item B<_build_query>

Construct a query URL based on the options.

    $url = $q->_build_query();

=cut

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

Returns a hash with keys and no values (this makes it easy to
check for the option).

This method also returns, the values from the parent class.

=cut

sub _translate_one_to_one {
    my $self = shift;
    # convert to a hash-list
    return ($self->SUPER::_translate_one_to_one,
            map { $_, undef }(qw/
                cond
                /)
           );
}

1;

__END__

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

Returns a hash with keys and no values (this makes it easy to
check for the option).

This method also returns, the values from the parent class.

=cut

sub _translate_one_to_one {
    my $self = shift;
    # convert to a hash-list
    return ($self->SUPER::_translate_one_to_one,
            map { $_, undef }(qw/
                catalog
                outcols
                /)
           );
}

1;

__END__

lib/Astro/Catalog/Transport/WebService.pm  view on Meta::CPAN

Configures the object, takes an options hash as an argument

    $q->configure(%options);

Does nothing if the array is not supplied.

=cut

sub configure {
    my $self = shift;
    $self->SUPER::configure(@_);
}

=back

=begin __PRIVATE_METHODS__

=head2 Private methods

These methods are for internal use only.