File Coverage

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

Criterion	Covered	Total	%
statement	38	43	88.3
branch	7	8	87.5
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	54	60	90.0

package HTML::FormatNroff::Table::Cell::Nroff;

use 5.004;
use strict;
use warnings;
use parent 'HTML::FormatNroff::Table::Cell';
use Carp;

my $_max_tbl_cell = 300;

my %_formats = (
    left   => "l",
    center => "c",
    right  => "r",
);

sub format_str {
    my ( $self, $width ) = @_;

    my $result = $_formats{ $self->{'align'} };
    if ($width) { $result .= "w(" . $width . "i)"; }
    my $cnt = $self->{'colspan'};
    while ( $cnt > 1 ) {
        $result .= " s";
        $cnt--;
    }
    return $result;
}

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

    $formatter->out("T{\n.ad l\n.fi\n");
    if ( $self->{'header'} eq 'header' ) {
        $formatter->font_start('B');
    }
    my $text = $self->{'text'};
    $text =~ s/ +/ /;

    # need to split to avoid buffer overrun in tbl,
    # using $_max_tbl_cell as magic number
    my $len = length($text);
    while ( $len > 0 ) {
        if ( $len < $_max_tbl_cell ) {
            $formatter->out($text);
            $len = 0;
        }
        else {
            my $place = index( $text, " ", $_max_tbl_cell / 2 );
            $formatter->out( substr( $text, 0, $place ) );
            $formatter->out("\n");
            $text = substr( $text, $place + 1 );
            $len = length($text);
        }
    }

    if ( $self->{'header'} eq 'header' ) {
        $formatter->font_end();
    }
    $formatter->out("\n.nf\nT}");
}

1;

__END__