File Coverage

blib/lib/HTML/TableContent/Table/Row/Cell.pm

Criterion	Covered	Total	%
statement	4	5	80.0
branch			n/a
condition			n/a
subroutine	2	3	66.6
pod	0	2	0.0
total	6	10	60.0

package HTML::TableContent::Table::Row::Cell;

use Moo;

our $VERSION = '1.00';

extends 'HTML::TableContent::Element';

has header => ( is => 'rw' );

has '+html_tag' => (
    default => 'td',
);

around _render_element => sub {
    my ( $orig, $self ) = (shift, shift);

    my $text = $self->$orig(@_);

    if ($self->has_nested) {
        my @nested = map { $_->render } $self->all_nested;
        my $nest = sprintf '%s' x @nested, @nested;
        $text = sprintf '%s%s', $text, $nest;
    }

    return $text;
};

sub header_template_attr {
    return $_[0]->header->template_attr;
}

sub header_text {
    return $_[0]->header->text;
}

__PACKAGE__->meta->make_immutable;

1;

__END__