view release on metacpan or  search on metacpan

lib/App/termpub/Pager.pm  view on Meta::CPAN

    return;
}

sub quit {
    return 'quit';
}

sub display_msg {
    my ( $self, $msg ) = @_;
    move( $self->rows + 1, 0 );
    clrtoeol;
    addstr($msg) if defined $msg;
    return;
}

sub goto_line {
    my ( $self, $num ) = @_;
    $num ||= ( $self->prefix || 1 ) - 1;
    if ( $num <= $self->pad_rows ) {
        $self->line($num);
        $self->update_screen if $self->rows;