print STDERR $m->content() if $DEBUG > 1;
}
my @possible_links;
+ # this brings forward the actual link at Science
+ push @possible_links,
+ grep {my $temp = $_->attrs();
+ exists $temp->{rel} and $temp->{rel} =~ qr/view-/i and
+ defined $_->text() and $_->text() =~ qr/Full\s*Text.*PDF/i
+ }
+ $m->find_all_links(text_regex => qr/PDF/i);
# this is to prioritize the real link at science direct
- push @possible_links,
+ push @possible_links,
grep {my $temp = $_->attrs();
use Data::Dumper;
print STDERR Dumper($temp);