view release on metacpan or  search on metacpan

lib/Log/Any/Progress.pm  view on Meta::CPAN

count by one.  A positive interger may be passed as an argument to
explicitly update the iteration count to a particular value.

Once the iteration count reaches the specified L</count> value, the
progress is considered to be complete and a final log message is
emitted with summary statistics, and subsequent calls to C<update>
will have no effect.

=cut

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

    if (defined $current_iteration) {
        $self->{_current_iteration} = $current_iteration;
    }
    else {
        $current_iteration = ++$self->{_current_iteration};
    }