>> test.pl:3: $Devel::Trace::TRACE=0;
>> test.pl:26: print $styler->text_style($html);
>> Text/Styler.pm:21:   my($self,$text) = @_;
>> Text/Styler.pm:23:   my $styler = new Text::Styler::Parser;
>> Text/Styler/Parser.pm:21:    my $proto = shift;
>> Text/Styler/Parser.pm:22:    my $class = ref( $proto ) || $proto; 
>> Text/Styler/Parser.pm:23:    my $parser = HTML::Parser->new( api_version => 3 );
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:23:     my $class = shift;
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:24:     my $self = bless {}, $class;
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:25:     return $self->init(@_);
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:31:     my $self = shift;
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:32:     $self->_alloc_pstate;
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:34:     my %arg = @_;
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:35:     my $api_version = delete $arg{api_version} || (@_ ? 3 : 2);
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:36:     if ($api_version >= 4) {
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:42:     if ($api_version < 3) {
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:65:     if (my $h = delete $arg{handlers}) {
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:73:     while (my($option, $val) = each %arg) {
>> /usr/local/lib/site_perl/i386-linux/HTML/Parser.pm:86:     return $self;
>> Text/Styler/Parser.pm:25:    $parser->handler(start => \&start_handler, 'self, tagname, attr' );
>> Text/Styler/Parser.pm:26:    $parser->handler(end => \&end_handler, 'self, tagname' );
>> Text/Styler/Parser.pm:27:    $parser->handler(text => \&text_handler, 'self, dtext' );
>> Text/Styler/Parser.pm:28:    $parser->report_tags( @report_tags );
>> Text/Styler/Parser.pm:29:    $parser->unbroken_text(1);
>> Text/Styler/Parser.pm:31:    return bless $parser, $class;
>> Text/Styler.pm:24:   $styler->parse($text);
>> Text/Styler.pm:27:   $self->text_wrap( $styler->contents );