File Coverage

blib/lib/Data/Tabulate/Plugin/ASCIITable.pm

Criterion	Covered	Total	%
statement	9	15	60.0
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	2	2	100.0
total	14	22	63.6

package Data::Tabulate::Plugin::ASCIITable;

# ABSTRACT: generate ASCII tables with Data::Tabulate

use warnings;
use strict;
use Text::Table::Tiny;

our $VERSION = '0.04';


sub new{
    return bless {}, shift;
}


sub output{
    my ($self,@data) = @_;

    my $table = Text::Table::Tiny::table( rows => \@data );

    # some minor changes to generate the same output as the 0.01 version
    # with Text::ASCIITable 0.17
    $table =~ s/\+([+-]+)\+\n/.$1.\n/;
    $table =~ s/\+([+-]+)\+\z/'$1'\n/ms;

    return $table;
}

1; # End of Data::Tabulate::Plugin::ASCIITable

__END__