File Coverage

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

Criterion	Covered	Total	%
statement	3	18	16.6
branch	0	4	0.0
condition	0	8	0.0
subroutine	1	6	16.6
pod	3	3	100.0
total	7	39	17.9

package Mojolicious::Plugin::LinkEmbedder::Link::Image::Xkcd;

=head1 NAME

Mojolicious::Plugin::LinkEmbedder::Link::Image::Xkcd - xkcd.com image/comic

=head1 DESCRIPTION

This class inherits from L.

=cut

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

=head1 ATTRIBUTES

=head2 media_hover_text

The secret part of xkcd jokes

=head2 media_id

Extracts the media_id from the url directly

=head2 media_url

URL to the image itself, extracted from the retrieved page

=head2 media_title

The title of the image, extracted from the retrieved page

=head2 provider_name

=cut

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

=head1 METHODS

=head2 learn

Gets the file imformation from the page meta information

=cut

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 $link = $tx->res->dom->at('#comic img') || {};
      $self->media_url(Mojo::URL->new($link->{src})) if $link->{src};
      $self->media_title($link->{alt} || $link->{title} || $self->url);
      $self->media_hover_text($link->{title} || $self->media_title);
      $self->$cb;
    },
  );
  $delay->wait unless $delay->ioloop->is_running;
}

=head2 to_embed

Returns an img tag.

=cut

sub to_embed {
  my $self = shift;

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

=head1 AUTHOR

Joel Berger - C

=cut

1;