File Coverage

blib/lib/Mojolicious/Plugin/LinkEmbedder/Link/Text/Metacpan.pm

Criterion	Covered	Total	%
statement	3	9	33.3
branch	0	4	0.0
condition	0	6	0.0
subroutine	1	3	33.3
pod	1	1	100.0
total	5	23	21.7

package Mojolicious::Plugin::LinkEmbedder::Link::Text::Metacpan;

=head1 NAME

Mojolicious::Plugin::LinkEmbedder::Link::Text::Metacpan - metacpan.org link

=head1 DESCRIPTION

This class inherit from L.

=cut

use Mojo::Base 'Mojolicious::Plugin::LinkEmbedder::Link::Text::HTML';

=head1 ATTRIBUTES

=head2 provider_name

=cut

sub provider_name {'Metacpan'}

sub _learn_from_dom {
  my ($self, $dom) = @_;

  if (my $e = $dom->at('.author-pic > a > img') || $dom->at('link[rel="apple-touch-icon"]')) {
    my $url = $e->{src} || $e->{href};
    $self->image($url =~ /^https?:/ ? $url : "//metacpan.org$url");
  }

  $self->SUPER::_learn_from_dom($dom);
}

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2014, Jan Henning Thorsen

This program is free software, you can redistribute it and/or modify it under
the terms of the Artistic License version 2.0.

=head1 AUTHOR

Jan Henning Thorsen - C

=cut

1;