Select Code to Download

perl -MB::Deparse \
     -MHTML::TableExtract \
     -le 'print B::Deparse->new->coderef2text(\&HTML::TableExtract::Ta
+bleState::_taste_text)'
...
    }
    1;
}

$source_code =~ s/(\$self.*)$/$1

    print "skew: ".\$self->_skew."\\n"
...
        . "_column_wanted: ".\$self->_column_wanted."\\n"
        . "umbrella: \$\$self{'umbrella'}\\n"
        . "text: q[\$text]\\n";\n/ or die "Source patch failed";

*HTML::TableExtract::TableState::_taste_text =
    eval "sub { package Package::Name; $source_code };" or die "Eval o
+f \$source_code failed: $@";

use B::Deparse ();

{   # Fetch the original source code
...
        eval "sub { package HTML::TableExtract::TableState; $source_co
+de; };"
            or die "Eval of \$source_code failed: $@\n$source_code";
}