view release on metacpan or  search on metacpan

lib/App/SourcePlot/Source.pm  view on Meta::CPAN

    my $name = shift;

    if (UNIVERSAL::isa($name, 'Astro::Coords')) {
        $self->coords($name);
    }
    elsif (@_) {
        print "Passed in paramaters are being entered\n" if $locateBug;
        my ($ra, $dec, $epoc, undef) = @_;

        # Prevent Astro::Coords guessing between radians and degrees.
        my $unit = ($ra =~ /:/ or $dec =~ /:/)
            ? 'sexagesimal'
            : 'degrees';

        if ($epoc eq 'RJ') {
            $self->coords(Astro::Coords->new(
                name => $name,
                ra => ($unit eq 'degrees') ? ($ra * 15) : $ra,
                dec => $dec,
                type => 'J2000',