File Coverage

blib/lib/Astro/NED/Response/Object.pm

Criterion	Covered	Total	%
statement	18	31	58.0
branch	2	6	33.3
condition			n/a
subroutine	6	9	66.6
pod	4	4	100.0
total	30	50	60.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::Response::Object;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.30';

use base qw/ Class::Accessor::Fast /;

use Astro::NED::Response::Fields;

# Preloaded methods go here.

__PACKAGE__->mk_ro_accessors( 'InfoLink',
			      Astro::NED::Response::Fields::names() );
sub dumpstr
{
  my ( $self, $pfx )  = @_;

  return $pfx . join( "\n$pfx",
               map { "$_: " . ( defined $self->get($_) ? $self->get($_) : 'undef' ) }
               Astro::NED::Response::Fields::names()
             )
    . "\n";
}

sub dump
{
  my ( $self, $fh, $pfx )  = @_;

  $fh = \*STDOUT unless defined $fh;

  print {$fh} $self->dumpstr( $pfx );

  return;
}

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

    # object method
    if ( ref $self )
    {
        return grep { defined $self->get($_) }
          Astro::NED::Response::Fields::names();
    }

    # class method
    else
    {
        return Astro::NED::Response::Fields::names();
    }
}

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

    return %{$self};

}


1;
__END__