package NEOCP::Ephemerides;

# Class for Ephemerides data used for NEOCP processing

use strict;
use warnings;

sub new {
    my $class = shift;
    my %arg = shift;
    my $self = {};
    $self->{_designation}=$arg{designation};
    $self->{year}=$arg{year};
    $self->{month}=$arg{month};
    $self->{day}=$arg{day};
    $self->{hour}=$arg{hour};
    $self->{ra}=$arg{ra};
    $self->{ra_err}=$arg{ra_err};
    $self->{dec}=$arg{dec};
    $self->{dec_err}=$arg{dec_err};
    $self->{elong}=$arg{elong};
    $self->{v}=$arg{v};
    $self->{v_err}=$arg{v_err};
    $self->{pa}=$arg{pa};
    $self->{pa_err}=$arg{pa_err};
    bless($self,$class);
    return $self;
}

1;
