File Coverage

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

Criterion	Covered	Total	%
statement	24	24	100.0
branch	6	6	100.0
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	39	39	100.0

package Data::Tabulate::Plugin::HTMLTable;

use warnings;
use strict;

use HTML::Table;

# ABSTRACT: HTML::Table plugin for Data::Tabulate

our $VERSION = '0.06';


sub new{
    return bless {},shift;
}


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

    my %atts = $self->attributes();
    my $obj  = HTML::Table->new(%atts);

    for my $row_data ( @data ){
        my @row = map{ defined $_ ? $_ : ' ' }@{$row_data};
        $obj->addRow(@row);
    }

    return $obj->getTable();
}


sub attributes{
    my ($self,%atts) = @_;

    $self->{attributes} = {%atts} if keys %atts;

    my %return = %{ $self->{attributes} || {} };

    return %return;
}

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

__END__