File Coverage

blib/lib/HTML/FormatNroff/Table.pm

Criterion	Covered	Total	%
statement	22	26	84.6
branch	1	2	50.0
condition	2	5	40.0
subroutine	8	9	88.8
pod	5	5	100.0
total	38	47	80.8

package HTML::FormatNroff::Table;

use 5.004;
use strict;
use warnings;
use Carp;

sub new {
    my ( $class, $formatter, %attr ) = @_;

    my $self = bless {
        formatter     => $formatter,
        align         => $attr{'align'} || 'left',
        width         => $attr{'width'},
        page_width    => $attr{'page_width'},
        tab           => '%',
        border        => 1,
        previous_rows => [],
        current_row   => undef,
        data          => [],
    }, $class;

    return $self;
}

sub end_row {
    my ($self) = @_;

    $self->{"current_row"} = pop( @{ $self->{'previous_rows'} } );
}

sub start_data {
    my ( $self, %attr ) = @_;

    $self->{"current_row"}->add_element(%attr);
}

sub end_data {
    my ($self) = @_;

    $self->{"current_row"}->end_element();
}

sub add_text {
    my ( $self, $text ) = @_;

    if ( defined( $self->{"current_row"} )
        && $self->{"current_row"} ne "" ) {
        $self->{"current_row"}->add_text($text);
    }
    else {
        return 0;
    }
}

1;

__END__