Astro-SIMBAD
view release on metacpan or search on metacpan
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
( run in 0.241 second using v1.01-cache-2.11-cpan-4d50c553e7e )