view release on metacpan or  search on metacpan

lib/Acme/Spinner.pm  view on Meta::CPAN

=head2 next

Bump the spinner by one and return it.

=cut

sub next {
    my $self = shift;
    my $f = $self->{seq};
    my $t = substr( $f, $self->{count} % length($f), 1 );
    $self->{count}++;

    return ($t);
}

=head1 AUTHOR

Chris Fedde, C<< <cfedde at cpan.org> >>

=head1 BUGS