do {
  my $a = bless({
    _rastamon           => sub { ... },
    attribs             => {},
    automap             => 1,
    captured            => 1,
    cc                  => -1,
    children            => [],
    count               => 0,
    counts              => [0],
    debug               => 0,
    depth               => 0,
    error_handle        => \*main::STDOUT,
    grid                => [
                             [\"Date", \"Price", \"Comments"],
                             [\"21/9", \2324, \"abc"],
                             [\"21/9", \2324, \"abasdasc"],
                             [\"21/9", \2324, \"absadsadsc"],
                           ],
    head_found          => 1,
    headers             => ["Date", "Price", "Comments"],
    hits                => { "0" => "Date", "1" => "Price", "2" => "Co
+mments" },
    hits_left           => {},
    hpat                => qr/()/mi,
    hrow                => 'fix',
    hrow_index          => 0,
    in_cell             => 0,
    in_row              => 0,
    keep_headers        => 0,
    keep_html           => 0,
    lineage             => [],
    order               => [0, 1, 2],
    rc                  => 3,
    slice_columns       => 1,
    strip_html_on_match => 1,
    tattribs            => {},
    tcount              => undef,
    tdepth              => undef,
    translation         => [],
    umbrella            => 0,
  }, "HTML::TableExtract::Table");
  $a->{hrow} = $a->{grid}[0];
  $a;
}
[download]