File Coverage

blib/lib/Mojolicious/Plugin/LinkEmbedder/Link/Image/Imgur.pm

Criterion	Covered	Total	%
statement	3	17	17.6
branch	0	2	0.0
condition	0	7	0.0
subroutine	1	6	16.6
pod	0	3	0.0
total	4	35	11.4

package Mojolicious::Plugin::LinkEmbedder::Link::Image::Imgur;
use Mojo::Base 'Mojolicious::Plugin::LinkEmbedder::Link::Image';

has media_id => sub { shift->url->path->[0] };
sub provider_name {'Imgur'}
has [qw( media_url media_title )];

sub learn {
  my ($self, $c, $cb) = @_;
  my $ua    = $self->{ua};
  my $delay = Mojo::IOLoop->delay(
    sub {
      my $delay = shift;
      $ua->get($self->url, $delay->begin);
    },
    sub {
      my ($ua, $tx) = @_;
      my $dom = $tx->res->dom;
      $self->media_url(Mojo::URL->new(($dom->at('meta[property="og:image"]') || {})->{content}));
      $self->media_title(($dom->at('meta[property="og:title"]') || {})->{content});
      $self->$cb;
    },
  );
  $delay->wait unless $delay->ioloop->is_running;
}

sub to_embed {
  my $self = shift;

  $self->tag(
    img => src => $self->media_url,
    alt => $self->media_title || $self->media_url,
    title => $self->media_title
  );
}

1;