File Coverage

lib/PortageXS/UI/Spinner.pm

Criterion	Covered	Total	%
statement	13	30	43.3
branch	0	2	0.0
condition			n/a
subroutine	5	11	45.4
pod	2	2	100.0
total	20	45	44.4

use strict;
use warnings;

package PortageXS::UI::Spinner;
BEGIN {
  $PortageXS::UI::Spinner::AUTHORITY = 'cpan:KENTNL';
}
{
  $PortageXS::UI::Spinner::VERSION = '0.3.1';
}

# ABSTRACT: Dancing Console progress spinner bling.
# -----------------------------------------------------------------------------
#
# PortageXS::UI::Spinner
#
# author      : Christian Hartmann
# license     : GPL-2
# header      : $Header: /srv/cvsroot/portagexs/trunk/lib/PortageXS/UI/Spinner.pm,v 1.1.1.1 2006/11/13 00:28:34 ian Exp $
#
# -----------------------------------------------------------------------------
#
# This program is free software; you can redistribute it and/or modify it under
# the terms of the GNU General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option) any later
# version.
#
# -----------------------------------------------------------------------------

use Moo;
use IO::Handle;




has spinstate => ( is => rwp =>, default => sub { 0 } );


has output_handle => (
    is      => ro =>,
    default => sub {
        my $handle = \*STDOUT;
        $handle->autoflush(1);
        return $handle;
    }
);


has spinstates => (
    is      => ro =>,
    default => sub {
        [ '/', '-', '\\', '|' ];
    }
);


sub _last_spinstate { return $#{ $_[0]->spinstates } }


sub _increment_spinstate {
    my $self      = shift;
    my $rval      = $self->spinstate;
    my $nextstate = $rval + 1;
    if ( $nextstate > $self->_last_spinstate ) {
        $nextstate = 0;
    }
    $self->_set_spinstate($nextstate);
    return $rval;
}


sub _get_next_spinstate {
    my (@states) = @{ $_[0]->spinstates };
    return $states[ $_[0]->_increment_spinstate ];
}


sub _print_to_output {
    my $self = shift;
    $self->output_handle->print(@_);
}


sub spin {
    my $self = shift;
    $self->_print_to_output( "\b" . $self->_get_next_spinstate );
}


sub reset {
    $_[0]->_print_to_output("\b \b");
}

1;

__END__