File Coverage

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

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition	10	14	71.4
subroutine	10	10	100.0
pod	6	6	100.0
total	51	55	92.7

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

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

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

    my $self = bless {
        header   => $attr{'header'}   || '',
        nowrap   => $attr{'nowrap'}   || 'nowrap',
        rowspan  => $attr{'rowspan'}  || 1,
        colspan  => $attr{'colspan'}  || 1,
        align    => $attr{'align'}    || 'left',
        valign   => $attr{'valign'}   || 'middle',
        contents => $attr{'contents'} || '',

        text => "",
    }, $class;

    return $self;
}

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

    $self->{'text'} .= $text;
}

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

    return $self->{'align'};
}

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

    return $self->{'colspan'};
}

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

    return $self->{'text'};
}

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

    length( $self->{'text'} );
}

1;

__END__