File Coverage

blib/lib/NewsExtractor/SiteSpecificExtractor/ChinaTimes.pm
Criterion Covered Total %
statement 9 14 64.2
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 19 63.1


line stmt bran cond sub pod time code
1             package NewsExtractor::SiteSpecificExtractor::ChinaTimes;
2 1     1   8 use utf8;
  1         3  
  1         7  
3 1     1   36 use Moo;
  1         2  
  1         6  
4             extends 'NewsExtractor::JSONLDExtractor';
5              
6 1     1   373 use Importer 'NewsExtractor::TextUtil' => qw( html2text );
  1         3  
  1         10  
7              
8             sub content_text {
9 0     0 0   my ($self) = @_;
10             # my $text = $self->schema_ld->{articleBody} // $self->schema_ld->{description} // '';
11 0           my $body = $self->tx->result->dom->at("div.article-body");
12 0           $body->find(".article-hash-tag")->map('remove');
13 0           my $text = html2text( $body->content );
14 0           return $text;
15             }
16              
17             1;