File Coverage

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

Criterion	Covered	Total	%
statement	41	41	100.0
branch	5	6	83.3
condition	1	3	33.3
subroutine	9	9	100.0
pod	3	3	100.0
total	59	62	95.1

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

use 5.004;
use strict;
use warnings;
use parent 'HTML::FormatNroff::Table::Row';

use Carp;
use HTML::FormatNroff::Table::Cell::Nroff;

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

    my $cell;
    my $index = 0;
    foreach $cell ( @{ $self->{'cells'} } ) {
        my $str = $cell->format_str( $widths[$index] );
        $formatter->out("$str ");
        $index++;
    }
    $cell = $self->{'current_cell'};
    if ( defined $cell && $cell ne "" ) {
        my $str = $cell->format_str( $widths[$index] );
        $formatter->out("$str");
    }
    if ($final) {
        $formatter->out(".\n");
    }
    else {
        $formatter->out("\n");
    }
}

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

    if ( defined( $self->{'current_cell'} ) ) {
        push( @{ $self->{'cells'} }, $self->{'current_cell'} );
    }

    $self->{'ended'}        = 0;
    $self->{'current_cell'} = HTML::FormatNroff::Table::Cell::Nroff->new(%attr);
}

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

    $self->{'ended'} = 1;
}

1;

__END__