File Coverage

blib/lib/Lingua/EN/Summarize/Filters.pm

Criterion	Covered	Total	%
statement	15	20	75.0
branch			n/a
condition			n/a
subroutine	4	6	66.6
pod	0	3	0.0
total	19	29	65.5

package Lingua::EN::Summarize::Filters;

use strict;
use Carp;


sub easyhtml {
  my $text = shift;

  # A very simple-minded HTML stripper.
  $text =~ s/<(?:[^>\'\"]*|([\'\"]).*?\1)*>//gs;
  return $text;
}


sub html {
  my $html = shift;
  my $text = '';

  # closure!
  my $callback = sub { $text .= shift };

  require HTML::Parser;
  my $parser = HTML::Parser->new( api_version => 3,
				  text_h => [ $callback, "dtext" ] );
  $parser->parse( $html );
  $parser->eof();

  return $text;
}


sub email {
  my $text = shift;

  # magic goes here
  croak "Not implemented yet FIXME FIXME FIXME";
}



1;
__END__