view release on metacpan or  search on metacpan

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

    @$array = @temp;
}

=item B<update_status>

Invokes the update method of the main window.

=cut

sub update_status {
    $MW->update;
}

=item B<changeDate>

Changes the date to a new date.

=cut

sub changeDate {

t/calcpoints.t  view on Meta::CPAN

# Dummy class to give to calcPoints as a "Main Window".

package TestMainWindow;

sub new {
    my $class = shift;
    return bless {}, $class;
}

sub update {
}

package main;

# The following test data was created from App::SourcePlot::Source before
# conversion to using Astro::Coords.  However it was necessary first to fix
# a bug in the original Source module's handling of negative declinations.
# This data should help check that the calculations have not inadvertently
# been changed.  The times, dates and coordinates are all randomly selected.