Astro-SIMBAD

 view release on metacpan or  search on metacpan

ChangeLog  view on Meta::CPAN

2002-05-29  Alasdair Allan <aa@astro.ex.ac.uk>

        * Query/Query.pm: Modification for special case RA and Dec 
          returned by SIMBAD for large objects.
          
2001-12-03  Alasdair Allan <aa@astro.ex.ac.uk>

        * Query/Query.pm: Added conditional test to see if $base_url is
          defined before setting it in the method. Bug fix; added URL,
          Timeout and Proxy to list of functions called by constructor.
          Minor bugfix to URL extraction from query results.
          
2001-11-28 Alasdair Allan <aa@astro.ex.ac.uk>

        * Result.pm: listofobjects() method added
        
2001-11-27 Alasdair Allan <aa@astro.ex.ac.uk>

        * Inital release, minimal functionality

Query/Query.pm  view on Meta::CPAN

  $query = new Astro::SIMBAD::Query( Target  => $object,
                                     RA      => $ra,
                                     Dec     => $dec,
                                     Error   => $radius,
                                     Units   => $radius_units,
                                     Frame   => $coord_frame,
                                     Epoch   => $coord_epoch,
                                     Equinox => $coord_equinox,
                                     Proxy   => $proxy,
                                     Timeout => $timeout,
                                     URL     => $alternative_url );

  my $results = $query->querydb();

  $other = new Astro::SIMBAD::Query( Target  => $object );

=head1 DESCRIPTION

Stores information about an prospective SIMBAD query and allows the query to
be made, returning an Astro::SIMBAD::Result object. Minimum information needed

Query/Query.pm  view on Meta::CPAN

  $query = new Astro::SIMBAD::Query( Target  => $object,
                                     RA      => $ra,
                                     Dec     => $dec,
                                     Error   => $radius,
                                     Units   => $radius_units,
                                     Frame   => $coord_frame,
                                     Epoch   => $coord_epoch,
                                     Equinox => $coord_equinox,
                                     Proxy   => $proxy,
                                     Timeout => $timeout,
                                     URL     => $alternative_url );

returns a reference to an SIMBAD query object.

=cut

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

Query/Query.pm  view on Meta::CPAN

  return undef unless @_;

  # grab the argument list
  my %args = @_;

  # Loop over the allowed keys and modify the default query options, note
  # that due to the order these are called in supplying both and RA and Dec
  # and an object Identifier (e.g. HT Cas) will cause the query to default
  # to using the identifier rather than the supplied co-ordinates.
  for my $key (qw / RA Dec Target Error Units Frame Epoch Equinox 
                    Proxy Timeout URL / ) {
      my $method = lc($key);
      $self->$method( $args{$key} ) if exists $args{$key};
  }

}

# T I M E   A T   T H E   B A R  --------------------------------------------

=back