view release on metacpan or  search on metacpan

lib/Astro/FITS/CFITSIO/Simple/PrintStatus.pm  view on Meta::CPAN

    my $pct_done = 100 * $rows / $self->{nrows};
    my $next     = int( ( $pct_done + 1 ) / 100 * $self->{nrows} + 0.5 );

    $next = $self->{nrows}
      if $next > $self->{nrows};

    $next;

}

sub update {
    my ( $self, $rows_done ) = @_;

    $self->output( $rows_done, $self->{nrows} );
}


{
    package Astro::FITS::CFITSIO::Simple::PrintStatusObj;
    our @ISA = qw/Astro::FITS::CFITSIO::Simple::PrintStatus/;