File Coverage

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

Criterion	Covered	Total	%
statement	3	22	13.6
branch	0	20	0.0
condition	0	8	0.0
subroutine	1	3	33.3
pod	1	1	100.0
total	5	54	9.2

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

=head1 NAME

Mojolicious::Plugin::LinkEmbedder::Link::Text::Github - github.com 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 {'Github'}

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

  $self->SUPER::_learn_from_dom($dom);
  $self->title($e->text) if $e = $dom->at('title');

  for my $e ($dom->find('#readme p')->each) {
    my $text = $e->text || '';
    $text =~ /\w/ or next;
    $self->title($self->description);
    $self->description($text);
    last;
  }

  if ($self->url->path =~ m!/commit!) {
    $self->image($e->{src}) if $e = $dom->at('img.avatar') and $e->{src};
    $self->title($e->all_text)       if $e = $dom->at('.commit-title');
    $self->description($e->all_text) if $e = $dom->at('.commit-meta .authorship');
  }
  elsif ($self->url->path =~ m!/(?:issue|pull)!) {
    $self->image($e->{src}) if $e = $dom->at('img.timeline-comment-avatar') and $e->{src};
    $self->title($e->text) if $e = $dom->at('.js-issue-title');
    $self->description($e->all_text) if $e = eval { $dom->at('#partial-discussion-header a.author')->parent };
  }
}

=head1 AUTHOR

Jan Henning Thorsen

=cut

1;