File Coverage

blib/lib/Data/Tabular/Output/HTML.pm

Criterion	Covered	Total	%
statement	61	70	87.1
branch	13	22	59.0
condition	1	3	33.3
subroutine	7	9	77.7
pod	2	2	100.0
total	84	106	79.2

# Copyright (C) 2003-2007, G. Allen Morris III, all rights reserved

use strict;

package Data::Tabular::Output::HTML;

use base 'Data::Tabular::Output';

use Carp qw (croak);

use overload '""' => \&_render;

sub new
{
    my $class = shift;
    my $args = { @_ };

    my $self = bless {}, $class;

    die 'No table' unless $args->{table};
    $self->{table} = $args->{table};
    die 'No output config' unless $args->{output};
    die 'No output config' unless ref $args->{output};
    die 'No output config' unless $args->{output}->isa('Data::Tabular::Config::Output');
    $self->{output} = $args->{output};

    $self;
}

sub _render
{
    my $self = shift;
    $self->html;
}

{
    package Data::Tabular::_Type::Text;

    sub new
    {
        my $class = shift;

	bless {
	    @_
	}, $class;
    }

    sub html_text
    {
	my $self = shift;

	sprintf($self->{format}, $self->{data});
    }
}

sub html
{
    my $self = shift;

    my $output = $self->output;

    my $attributes = $output->html_attribute_string;

    $attributes .= '';
    my $ret = "\n";

    $ret .= "
    for my $col ($self->columns()) {
        my $attribute = $col->align();

        $ret .= "  \n";
    }
    $ret .= " \n";
    my @table;

    for my $row ($self->rows()) {
	my $attribute = $row->html_attribute_string();
        push(@table, " \n");

	for my $cell ($row->cells()) {
	    my $data = $cell->data;
	    my $type = $self->output->type($cell->column_name);
            unless (ref $data) {
warn "ASDF";
		$data = Data::Tabular::Type::Text->new(
		    data => '[' . $data . ']',
		    format => $self->output->get_column_format($cell->column_name),
		);
	    }

	    my $attributes = '';
	    if (my $cs = $cell->colspan) {
	        if ($cs > 1) {
		    $attributes.= sprintf(' colspan="%s"', $cs);
		}
	    }

	    if ($type eq 'dollar' or $type eq 'number') {
	        $attributes.= ' align="right"';
	    }

	    my $hdr = $cell->hdr;
$hdr = 0;
	    if ($hdr) {
		push(@table, "  ");
	    } else {
		push(@table, "  ");
	    }
            my $cell_data = $data->html_text;

	    if (length($cell_data) == 0) {
		$cell_data = '';
	    }
            push(@table, $cell_data);
	    if ($hdr) {
		push(@table, "\n");
	    } else {
		push(@table, "
	    }
	}
	push(@table, "
    }
    $ret .= join('', @table);
    $ret .= "