File Coverage

lib/Term/ReadLine/Perl5/OO/State.pm

Criterion	Covered	Total	%
statement	6	14	42.8
branch			n/a
condition			n/a
subroutine	2	7	28.5
pod	0	5	0.0
total	8	26	30.7

package Term::ReadLine::Perl5::OO::State;
=pod

=head1 NAME

Term::ReadLine::Perl5::OO:State

=head1 DESCRIPTION

Object to old the internal state of an editable line. Thas things like
the text of the line and cursor position,

=cut


use Class::Accessor::Lite 0.05 (
    rw => [qw(buf pos cols prompt oldpos maxrows query)],
);

sub new {
    my $class = shift;
    bless {
        buf => '',
        pos => 0,
        oldpos => 0,
        maxrows => 0,
    }, $class;
}
use Text::VisualWidth::PP 0.03 qw(vwidth);

sub len { length(shift->buf) }
sub plen { length(shift->prompt) }

sub vpos {
    my $self = shift;
    vwidth(substr($self->buf, 0, $self->pos));
}

sub width {
    my $self = shift;
    vwidth($self->prompt . $self->buf);
}

1;