HTML::Parserをオブジェクト指向で

HTML::Parserの使い方を探してると、いわゆる「手続き型」の使い方がよくヒットする。 一つ一つのイベントごとにコールバック関数（サブルーチン）を定義するもの。 こんな感じか。 use strict; use warnings; use LWP::Simple; use HTML::Parser; my $page = get('http://google.com/'); my $parser = HTML::Parser->new(api_version => 3, start_h => [\&start_tag, "tagname, attr, text"], end_h => [\&end_tag, "tagname"], text_h => [\&text, "dtext"] ); $parser->parse($page); $parser->eof; sub start