File Coverage

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

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	23	23	100.0

# --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::NearName;

use 5.006;
use strict;
use warnings;

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

our $VERSION = '0.30';

__PACKAGE__->mk_class_accessors( qw( Field ) );

__PACKAGE__->Field( { qw{
                         ObjName        objname
                         Radius         radius
                         CoordSys       out_csys
                         Equinox        out_equinox
                         Sort           obj_sort
                         Format         of
                         ZVBreaker      zv_breaker
                         ListLimit      list_limit
                         ImageStamp     img_stamp
                         ZConstraint    z_constraint
                         ZValue1        z_value1
                         ZValue2        z_value2
                         ZUnit          z_unit
                         ObjTypeInclude ot_include
                         NamePrefixOp   nmp_op
                     } } );

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

__PACKAGE__->_mkMultipleAccessor ( qw/ IncObjType ExcObjType NamePrefix / );

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

    $self->{_ua}->follow_link( text_regex => qr/near name/i );
    $self->_setupMultiple( 'option', IncObjType => qr/^in_objtypes\d+$/ );
    $self->_setupMultiple( 'option', ExcObjType => qr/^ex_objtypes\d+$/ );
    $self->_setupMultiple( 'option', NamePrefix => qr/^name_prefix\d+$/ );

    return;
}


1;
__END__