File Coverage

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

Criterion	Covered	Total	%
statement	23	25	92.0
branch	4	6	66.6
condition	1	3	33.3
subroutine	6	6	100.0
pod	3	3	100.0
total	37	43	86.0

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

use warnings;
use strict;
use HTML::Table;

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

our $VERSION = '0.04';


sub new{
    return bless {},shift;
}


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

    my %atts = $self->attributes();
    my $obj  = HTML::Table->new(%atts);
    for(@data){
        my @row = map{defined($_) ? $_ : ' '}@$_;
        $obj->addRow(@row);
    }

    return $obj->getTable();
}


sub attributes{
    my ($self,%atts) = @_;
    $self->{attributes} = {%atts} if keys %atts;
    my %return = ();
    if(defined $self->{attributes} and ref($self->{attributes}) eq 'HASH'){
        %return = %{$self->{attributes}}
    }
    return %return;
}

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

__END__