perl -MB::Deparse \
     -MHTML::TableExtract \
     -le 'print B::Deparse->new->coderef2text(\&HTML::TableExtract::TableState::_taste_text)'

{
    package HTML::TableExtract::TableState;
    my($self, $text) = @_;
    my $sc = $self->_skew;
    if ($self->_terminus_trigger and $self->_column_wanted or $$self{'umbrella'}) {
        if (defined $text) {
            print STDERR "Add text '$text'\n" if $$self{'debug'} > 3;
            $self->_add_text($text, $sc);
        }
    }
    if (defined $text and $self->_any_headers and not $self->_any_htrigger) {
        $self->_htxt($text);
    }
    1;
}