view release on metacpan or  search on metacpan

lib/Astro/Catalog/Item.pm  view on Meta::CPAN

=cut

sub ra {
    my $self = shift;
    if (@_) {
        my $ra = shift;

        # Issue a warning specifically for this call
        my @info = caller();
        warnings::warnif("deprecated","Use of ra() method for setting RA now deprecated. Please use the coords() method instead, at $info[1] line $info[2]");


        # Get the coordinate object
        my $c = $self->coords;
        if (defined $c) {
            # Need to tweak RA?
            croak "Can only adjust RA with Astro::Coords::Equatorial coordinates"
                unless $c->isa("Astro::Coords::Equatorial");

lib/Astro/Catalog/Item.pm  view on Meta::CPAN

with a leading sign.

=cut

sub dec {
    my $self = shift;
    if (@_) {
        my $dec = shift;

        # Issue a warning specifically for this call
        my @info = caller();
        warnings::warnif("deprecated","Use of ra() method for setting RA now deprecated. Please use the coords() method instead, at $info[1] line $info[2]");

        # Get the coordinate object
        my $c = $self->coords;
        if (defined $c) {
            # Need to tweak RA?
            croak "Can only adjust Dec with Astro::Coords::Equatorial coordinates"
                unless $c->isa("Astro::Coords::Equatorial");

            # For now need to kluge since Astro::Coords does not allow