File Coverage

blib/lib/Term/VT102/Boundless.pm

Criterion	Covered	Total	%
statement	46	46	100.0
branch	15	20	75.0
condition			n/a
subroutine	9	9	100.0
pod	3	3	100.0
total	73	78	93.5

#!/usr/bin/perl

package Term::VT102::Boundless;
use base qw/Term::VT102/;

use strict;
use warnings;

our $VERSION = "0.04";

sub new {
	my ( $class, @args ) = @_;

	my $self = $class->SUPER::new(
		cols => 1,
		rows => 1,
		@args,
	);

	return $self;
}

sub _process_text {
	my ( $self, $text ) = @_;

	return if ($self->{'_xon'} == 0);

	my ( $x, $y ) = @{ $self }{qw(x y)};

	# for is used for aliasing
	for my $row ( $self->{'scrt'}[$y] ) {
		$row = '' unless defined $row;

		if ( length($row) - $x ) {
			$row .= " " x ( $x - length($row) );
		}

		substr ( $row, $x - 1, length $text) = $text;

		my $newcols = length $row;
		$self->{'cols'} = $newcols if $newcols > $self->{'cols'};
	}

	for my $row_attrs ( $self->{'scra'}[$y] ) {
		$row_attrs = '' unless defined $row_attrs;

		if ( ( length($row_attrs) / 2 ) - $x ) {
			$row_attrs .= Term::VT102::DEFAULT_ATTR_PACKED x ( $x - ( length($row_attrs) / 2 ) );
		}

		substr ( $row_attrs, 2 * ($x - 1), 2 * (length $text) ) = $self->{'attr'} x (length $text);
	}

	$self->{'x'} += length $text;

	$self->callback_call('ROWCHANGE', $y, 0);
}

sub _move_down {                         # move cursor down
	my ( $self, $num ) = @_;

	$num = 1 if (not defined $num);
	$num = 1 if ($num < 1);

	$self->{'y'} += $num;
	return if ($self->{'y'} <= $self->{'srb'});

	$self->{'srb'} = $self->{'rows'} = $self->{'y'};
}

sub row_attr {
	my ( $self, $row, @args ) = @_;
	$self->_extend_row($row);
	$self->SUPER::row_attr( $row, @args );
}

sub row_text {
	my ( $self, $row, @args ) = @_;
	$self->_extend_row($row);
	$self->SUPER::row_text( $row, @args );
}

sub _extend_row {
	my ( $self, $row ) = @_;

	# if the screen has grown since a row was processed, fill in the missing bits

	if ( (my $extend = $self->{cols} - length($self->{scrt}[$row]))  > 0 ) {
		$self->{scra}[$row] .= Term::VT102::DEFAULT_ATTR_PACKED x $extend; # FIXME use the last attr in the row instead?
		$self->{scrt}[$row] .= ("\x00" x $extend);
	}
}

__PACKAGE__;

__END__