File Coverage

blib/lib/Data/Tabular/Output.pm

Criterion	Covered	Total	%
statement	24	37	64.8
branch	1	4	25.0
condition	1	3	33.3
subroutine	8	10	80.0
pod	0	7	0.0
total	34	61	55.7

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

use strict;

package
    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};

    $self->{output} = $args->{output} || croak "Need output";

    $self;
}

sub rows
{
    my $self = shift;

    $self->{table}->rows(output => $self->output);
}

sub columns
{
    my $self = shift;

    $self->{table}->columns(output => $self->output);
}

sub output
{
    my $self = shift;
    $self->{output};
}

sub table
{
    my $self = shift;
    $self->{table};
}

sub attrib
{
     my $self = shift;

 warn $self->output;
 warn keys %{$self->output};

if (my $href = $self->output->{html}) {
warn 'HRef ', $href;
     $href->{attributes} = {};
     my $new_attributes = {
	 %{$href->{attributes}},
	 @_,
     };
     $href->{attributes} = $new_attributes;
}

     $self;
}

sub render
{
    my $self = shift;
    $self->text;
}

1;
__END__