-use utf8;
-use Carp;
-use Encode ();
-use HTML::Restrict ();
-use HTML::Parser;
-
-my %stripper;
-
-sub _strip_html {
- my ($value) = @_;
-
- if (!%stripper) {
- %stripper = ( parser => HTML::Parser->new );
-
- $stripper{parser}->handler(text => sub { $stripper{text} .= $_[1]; });
- }
-
- $stripper{text} = '';
- $stripper{parser}->parse($value);
- $stripper{parser}->eof;
-
- return delete $stripper{text};
-}
-