view release on metacpan or  search on metacpan

lib/ByteBeat/Shell.pm  view on Meta::CPAN

    $self->out("ByteBeat: p:play/pause Q:quit");
    $self->to(1);
    $self->out("Curr: $curr; Pos: $pos");

    for (my $i = 0; $i < @$beat; $i++) {
        $self->to(1);
        Curses::clrtoeol;
        $self->out(join '', @{$beat->[$i]});
    }

    $self->set_cursor;
    Curses::refresh();
}

sub set_cursor {
    my ($self) = @_;
    my $info = $byte->[$curr];
    $self->to;
    $self->to($curr + 2, $info->{pos});
}

sub init {
    my ($self) = @_;
    Curses::initscr();
    ReadMode(3);