Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more

use utf8;
use Moo;
sub content_text {
my ($self) = @_;
$self->dom->find('label[for="ctl00_ContentPlaceHolder1_RadioButton6"], label[for="ctl00_ContentPlaceHolder1_RadioButton5"], label[for="ctl00_ContentPlaceHolder1_RadioButton4"], label[for="ctl00_ContentPlaceHolder1_RadioButton3"], label[for="ctl00_ContentPlaceHolder1_RadioButton2"], label[for="ctl00_ContentPlaceHolder1_RadioButton1"]')->map('remove');
return $self->SUPER::content_text();
}
sub journalist {
my ($self) = @_;
my $txt;
my $el = $self->dom->at('#ctl00_ContentPlaceHolder1_UpdatePanel2 a[href*="Search.aspx?report="]');
if ($el) {
$txt = $el->text;
}
unless ($txt) {
($txt) = $self->content_text =~ m<\A〔新網記者 ( \p{Letter}+ (?:報導|特稿))〕\b>x;
}
return $txt;
}
1;