File Coverage

blib/lib/Term/ANSITable.pm

Criterion	Covered	Total	%
statement	11	38	28.9
branch	0	4	0.0
condition			n/a
subroutine	4	10	40.0
pod	6	6	100.0
total	21	58	36.2

package Term::ANSITable;

use 5.14.0;
use strict;
use warnings;
use Term::Size 'chars';

=head1 NAME

Term::ANSITable - Tool for drawing and redrawing tables on term!

=head1 VERSION

Version 0.010000

=cut

our $VERSION = '0.010000';

=head1 SUBROUTINES/METHODS

=head2 new

Constructor

=cut

sub new {
    my $class = shift;
    require Text::ANSITable;
    require Term::Cap;
    my $self = {
        _table    => Text::ANSITable->new(@_),
        _terminal => Tgetent Term::Cap { TERM => 'cygwin', OSPEED => 9600 },
    };
    $self->{_terminal}->Trequire("up");    # move cursor up
    $self->{_sig_up} = $self->{_terminal}->Tputs("up");
    bless $self, $class;
    return $self;
}

=head2 table

Getter/Setter for internal hash key _table.

=cut

sub table {
    return $_[0]->{_table} unless $_[1];
    $_[0]->{_table} = $_[1];
    return $_[0]->{_table};
}

=head2 rows

Get or set rows from Text::ANSITable object.

=cut

sub rows {
    return $_[0]->table->{rows} unless $_[1];
    $_[0]->table->{rows} = $_[1];
    return $_[0]->table->{rows};
}

=head2 add_row

Add row to Text::ANSITable object.

=cut

sub add_row {
    my ( $self, $row ) = @_;
    $self->table->add_row($row);
    return $self;
}


=head2 draw

Draw table on term and go back to first line of row for redrawing

=cut

sub draw {
    my ($self) = @_;
    my @lines = split "\n", $self->table->draw;
    my $chars = chars * STDOUT { IO };
    print $_, " " x ( $chars - length($_) ), $/ foreach (@lines);
    print $self->{_sig_up} foreach ( 1 .. scalar @lines );
}


=head2 refresh_table

Grep all empty rows from table.

=cut

sub refresh_table {
    my ($self) = @_;
    $self->rows( [ grep { @$_ } @{ $self->rows } ] );
    return $self;
}

1; # End of Term::ANSITable

__END__