File Coverage

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

Criterion	Covered	Total	%
statement	45	48	93.7
branch	2	2	100.0
condition			n/a
subroutine	16	17	94.1
pod	9	12	75.0
total	72	79	91.1

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

use Moo;

our $VERSION = '1.00';

use HTML::TableContent::Table::Header;
use HTML::TableContent::Table::Row::Cell;

extends 'HTML::TableContent::Element';

has cells => (
    is      => 'rw',
    lazy    => 1,
    default => sub { [] },
);

has header => (
    is   => 'rw',
    lazy => 1,
);

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

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

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

    my @cells = map { $_->raw } $self->all_cells;
    $row->{cells} = \@cells;

    return $row;
};

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

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

    foreach my $cell ( $self->all_cells ) {
        if ( $cell->has_nested ) {
            $nested = 1;
        }
    }

    return $nested;
};

sub hash {
    my $hash = { };
    map { $hash->{$_->header->text} = $_->text } $_[0]->all_cells;
    return $hash;
}

sub array {
    my @row = map { $_->text } $_[0]->all_cells;
    return @row;
}

sub add_header {
    my $header = HTML::TableContent::Table::Header->new($_[1]);
    $_[0]->header($header);
    return $header;
}

sub add_cell {
    my $cell = HTML::TableContent::Table::Row::Cell->new($_[1]);
    push @{ $_[0]->cells }, $cell;
    return $cell;
}

sub cell_count { return scalar @{ $_[0]->cells }; }

sub all_cells { return @{ $_[0]->cells }; }

sub get_cell { return $_[0]->cells->[ $_[1] ]; }

sub get_first_cell { return $_[0]->get_cell(0); }

sub get_last_cell { return $_[0]->get_cell( $_[0]->cell_count - 1 ); }

sub clear_cell { return splice @{ $_[0]->cells }, $_[1], 1; }

sub clear_first_cell { return shift @{ $_[0]->cells }; }

sub clear_last_cell { return $_[0]->clear_cell( $_[0]->cell_count - 1 ); }

sub _filter_headers {
    my ( $self, $headers ) = @_;
    my $cells = [];
    foreach my $cell ( $self->all_cells ) {
        for ( @{$headers} ) {
            if ( $cell->header->text eq $_->text ) {
                push @{$cells}, $cell;
            }
        }
    }
    return $self->cells($cells);
}

sub _render_element {
    my @cells = map { $_->render } $_[0]->all_cells;
    my $cell = sprintf '%s' x @cells, @cells;
    return $cell;
};

__PACKAGE__->meta->make_immutable;

1;

__END__