File Coverage

blib/lib/Term/ANSITable.pm

Criterion	Covered	Total	%
statement	11	49	22.4
branch	0	10	0.0
condition			n/a
subroutine	4	13	30.7
pod	7	7	100.0
total	22	79	27.8

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.010100

=cut

our $VERSION = '0.010100';

=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");
    $self->{_drawer} = Term::ANSITable::Draw->new;

    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 drawer

Get or set a custom drawer instead of print.

=cut

sub drawer {
    return $_[0]->{_drawer} unless $_[1];
    $_[0]->{_drawer} = $_[1];
    return $_[0]->{_drawer};
}

=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($prepare2refresh)

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

=over 4

=item

prepare2refresh: if is set term will go back to the first line
and it will be overwritten on any print afer that.

=cut

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

=back

=head2 refresh_table

Grep all empty rows from table.

=cut

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

=head2 Term::ANSITable::Draw

Internal drawing package

=cut

package Term::ANSITable::Draw;

=head2 new

Constructor

=cut

sub new {
    my $class = shift;
    return bless {}, $class;
}

=head2 new

Simple print to stdout.

=cut

sub print {
    my $self = shift;
    print @_;
}

1;    # End of Term::ANSITable

__END__