File Coverage

blib/lib/Astro/NED/Query/CoordExtinct.pm

Criterion	Covered	Total	%
statement	24	34	70.5
branch	1	2	50.0
condition			n/a
subroutine	8	9	88.8
pod			n/a
total	33	45	73.3

# --8<--8<--8<--8<--
#
# Copyright (C) 2007 Smithsonian Astrophysical Observatory
#
# This file is part of Astro::NED::Query
#
# Astro::NED::Query is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or (at
# your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see .
#
# -->8-->8-->8-->8--

package Astro::NED::Query::CoordExtinct;

use 5.006;
use strict;
use warnings;

use Astro::NED::Response::CoordExtinct;

our $VERSION = '0.30';


use base qw/ Astro::NED::Query::Objects Class::Accessor::Class /;

__PACKAGE__->mk_class_accessors( qw( Field ) );

__PACKAGE__->Field( { qw{
                InCoordSys      in_csys
                InEquinox       in_equinox
                Longitude       lon
                Latitude        lat
                RA              lon
                Dec             lat
                PA              pa
                OutCoordSys     out_csys
                OutEquinox      out_equinox
              }} );

__PACKAGE__->mk_accessors( keys %{__PACKAGE__->Field},
                         );

sub _init
{
    my ( $self ) = @_;

    $self->{_ua}->follow_link( text_regex => qr/coordinate transformation/i );

    return;
}

sub _query {}

sub _parse_query
{
  my $self = shift;

  # got something
  if ( $_[0] =~ /NED Coordinate & Extinction Calculator Results/i )
  {
    my $res = Astro::NED::Response::CoordExtinct->new;
    $res->parseHTML( $_[0] );

    return $res;
  }

  else
  {
    my $pfx = ref($self) . '->query: ';
    my @stuff;

    require HTML::Parser;
    my $p = HTML::Parser->new( text_h =>
                            [ sub { push @stuff,
                                      grep { ! /|(^\s*Search\ Results)
                                                |(^\s*NASA.*)
                                                |(^\s*Back to NED Home)
                                                |(^$)/x }
                                      split( /\n+/, shift ) }, 'dtext' ] );
    $p->unbroken_text(1);
    $p->parse( $_[0] );
    $p->eof;

    croak( $pfx, join( "\n$pfx", @stuff ), "\n" );
  }
}


1;
__END__