File Coverage

blib/lib/HTML/TableParser/Grid.pm

Criterion	Covered	Total	%
statement	47	47	100.0
branch	1	2	50.0
condition	3	5	60.0
subroutine	12	12	100.0
pod	6	6	100.0
total	69	72	95.8

package HTML::TableParser::Grid;

use warnings;
use strict;
use Carp;

use version; our $VERSION = qv('0.0.5');

use HTML::TableParser;

sub new {
    my($class, $table_html, $offset) = @_;
    $offset ||= 0;

    my $udata = {
        row => 0,
        data => [],
    };

    my @request = ({
        id => 1,           # parse the first table
        row => \&_row,
        udata => $udata,
    });

    HTML::TableParser->new(\@request, { Decode => 1, Trim => 1, Chomp => 1 })
            ->parse($table_html) or croak $@;

    bless {
        data => $udata->{data},
        offset => $offset,
    }, $class;
}

sub cell {
    my($self, $row, $column) = @_;
    $column -= $self->{offset};
    $row -= $self->{offset};
    $self->{data}[$row][$column];
}

sub row {
    my($self, $row) = @_;
    $row -= $self->{offset};
    @{ $self->{data}[$row] };
}

sub column {
    my($self, $column) = @_;
    my @results;
    for my $row (@{ $self->{data} }) {
        push @results, $row->[$column];
    }
    @results;
}

sub num_columns {
    my($self, $row) = @_;
    $row ||= $self->{offset};
    scalar @{ $self->{data}[$row - $self->{offset}] };
}

sub num_rows {
    my($self) = @_;
    scalar @{ $self->{data} };
}

sub _row {
    my($id, $line, $cols, $udata) = @_;
    my $column = 0;
    $udata->{data}[$udata->{row}][$column++] = $_ for @{ $cols };
    $udata->{row}++;
}

1;
__END__