File Coverage

blib/lib/HTML/FormatNroff/Table/Row.pm

Criterion	Covered	Total	%
statement	40	46	86.9
branch	6	10	60.0
condition	3	4	75.0
subroutine	8	10	80.0
pod	7	7	100.0
total	64	77	83.1

package HTML::FormatNroff::Table::Row;

use strict;
use warnings;
use Carp;

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

    my $self = bless {
        align  => $attr{'align'}  || 'left',
        valign => $attr{'valign'} || 'middle',
        current_cell => undef,
        ended        => 1,
        cells        => [],
    }, $class;

    return $self;
}

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

    croak "Should be subclassed.\n";
}

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

    croak "Should be subclassed.\n";
}

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

    if ( $self->{'ended'} != 0 ) {
        return;
    }

    my $cell = $self->{'current_cell'};
    if ( defined($cell) ) {
        $cell->add_text($text);
    }
    else {
        return 0;
    }
}

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

    my $cell = $self->{'current_cell'};
    if ( defined($cell) ) {
        return $cell->text();
    }
    else {
        return 0;
    }
}

sub widths {
    my ( $self, $final, $array_ref ) = @_;

    my @widths;
    my $cell;
    foreach $cell ( @{ $self->{'cells'} } ) {
        push( @widths, $cell->width() );
    }

    $cell = $self->{'current_cell'};
    if ( defined($cell) ) {
        push( @widths, $cell->width() );
    }

    push( @$array_ref, [@widths] );
}

sub output {
    my ( $self, $final, $formatter, $tab ) = @_;

    my $cell;
    foreach $cell ( @{ $self->{'cells'} } ) {
        $cell->output($formatter);
        $formatter->out("$tab");
    }

    if ( defined( $self->{'current_cell'} ) ) {
        $self->{'current_cell'}->output($formatter);
    }
    $formatter->out("\n.sp\n");
}

1;

__END__