Select Code to Download

$p->handler( start => \&a_start_handler, "tagname,self,attr" );
$p->unbroken_text( 1 );
...
  $self->handler(end => undef );
  $self->handler(text => undef );
}

    $self->handler(text => sub { $text = shift; $text =~ s/\n//g; },"d
+text");

$self->handler( text => sub { $text = shift; $text =~ s/\n//g; },"text
+");