File Coverage

blib/lib/HTML/Table/Compiler.pm

Criterion	Covered	Total	%
statement	27	28	96.4
branch	5	10	50.0
condition	3	9	33.3
subroutine	5	5	100.0
pod	1	1	100.0
total	41	53	77.3

package HTML::Table::Compiler;

use strict;
use HTML::Table;
use Carp qw( croak );

use vars qw( @ISA $VERSION );

@ISA = qw( HTML::Table );
$VERSION = '0.01';


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

    unless ( defined($data) && ref $data && (ref $data eq 'ARRAY') ) {
        croak "build(): usage error";
    }
    my $cols_number = $self->getTableCols() or die "no table cols";
    my $rows_number = $self->getTableRows() or die "no table rows";

    if ( ($rows_number * $cols_number < @$data) && $self->{autogrow} ) {
        my $splits = @$data / $cols_number;
        $rows_number = (int ($splits) == $splits) ? $splits : $splits + 1;
    }

    my @table = ();
    for ( my $i=1; $i <= $rows_number; $i++ ) {
        my @row = ();
        for ( my $j=1; $j <= $cols_number; $j++ ) {
            push @row, $data->[ (($i-1) * $cols_number) + $j - 1 ];
            $self->setCell($i, $j, $row[-1]);
        }
        push @table, [@row];
    }
    return \@table;
}

1;
__END__