view release on metacpan or  search on metacpan

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

sub new {
    my $class = shift;
    $class = ref($class) || $class;
    my $self = {};
    $self->{y}     = shift;
    $self->{x}     = shift;
    $self->{count} = 0;
    $self->{seq}   = '|\\-/';

    return bless( $self, $class );
}

=head2 next

Bump the spinner by one and return it.

=cut

sub next {
    my $self = shift;