File Coverage

blib/lib/Text/VerticalTable.pm

Criterion	Covered	Total	%
statement	49	51	96.0
branch	2	4	50.0
condition	2	5	40.0
subroutine	11	11	100.0
pod	4	4	100.0
total	68	75	90.6

package Text::VerticalTable;
use strict;
use warnings;
use utf8;
use Carp qw/croak/;
use overload '""' => '_drawit';
use List::Util qw/max/;

our $VERSION = '0.01';

sub new {
    my $class = shift;

    bless {
        _tbl => [],
    }, $class;
}

sub setHead {
    my ($self, $title) = @_;

    push @{$self->{_tbl}}, { head => $title, lines => [] };

    $self;
}

sub addRow {
    my $self = shift;

    if (ref ${$self->{_tbl}}[-1] ne 'HASH') {
        croak "setHead first";
    }

    my ($key, $value) = scalar(@_) == 1 && ref($_[0]) eq 'ARRAY' ? @{$_[0]} : @_;

    push @{${$self->{_tbl}}[-1]{lines}}, [$key, $value];

    $self;
}

sub _drawit {scalar shift()->draw()}

sub draw {
    my $self = shift;

    my @lines;
    my $count = 1;

    for my $tbl (@{$self->{_tbl}}) {
        push @lines, sprintf("%s %s. %s %s", '*'x10, $count, $tbl->{head} || 'row', '*'x10);
        my $max_key_length = max(map { length $_->[0] } @{$tbl->{lines}});
        for my $line (@{$tbl->{lines}}) {
            my ($key, $value) = @{$line};
            push @lines, sprintf(
                "%s: %s",
                sprintf("%${max_key_length}s", $key), $value
            );
        }
        $count++;
    }

    join("\n", @lines) . "\n";
}

1;

__END__