File Coverage

blib/lib/NewsExtractor/Download.pm

Criterion	Covered	Total	%
statement	23	43	53.4
branch	0	6	0.0
condition	0	3	0.0
subroutine	8	11	72.7
pod	0	1	0.0
total	31	64	48.4

package NewsExtractor::Download;
use v5.18;
use Moo;
use Types::Standard qw< InstanceOf >;

has tx => ( required => 1, is => 'ro', isa => InstanceOf['Mojo::Transaction::HTTP']);

use NewsExtractor::Article;
use NewsExtractor::Extractor;
use NewsExtractor::Error;
use Importer 'NewsExtractor::TextUtil' => qw(u is_empty);

use Try::Tiny;

sub parse {
    my $self = $_[0];
    my ($err, $o, %article);

    try {
        my $x = NewsExtractor::Extractor->new( tx => $self->tx );
        $article{headline}     = $x->headline;
        $article{article_body} = $x->content_text;

        for my $it (qw(dateline journalist)) {
            my $v = $x->$it;
            if (defined($v)) {
                $article{$it} = $v;
            }
        }

        for my $it (qw(headline article_body)) {
            if (is_empty($article{$it})) {
                $err = NewsExtractor::Error->new(
                    message => u("Failed to extract: $it")
                );
                last;
            }
        }

        $o = NewsExtractor::Article->new(%article);
    } catch {
        my $e = $_;

        if (ref($e) && $e->isa('Error::TypeTiny::Assertion')) {
            $e = $e->message;
        }

        $err = NewsExtractor::Error->new(
            message => u($e),
            debug   => { articleArgs => \%article },
        );
    };

    return ($err, $o);
}

1;