File Coverage

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

Criterion	Covered	Total	%
statement	12	21	57.1
branch			n/a
condition			n/a
subroutine	6	9	66.6
pod	4	7	57.1
total	22	37	59.4

package HTML::TableContent::Table::Header;

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

our $VERSION = '1.00';

extends 'HTML::TableContent::Element';

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

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

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 unique_cells {
    my $count_cells = { };
    map { $count_cells->{$_->text}++ } $_[0]->all_cells;
    return $count_cells;
}

1;

__PACKAGE__->meta->make_immutable;

__END__