File Coverage

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

Criterion	Covered	Total	%
statement	3	19	15.7
branch	0	8	0.0
condition			n/a
subroutine	1	6	16.6
pod	4	4	100.0
total	8	37	21.6

package Mojolicious::Plugin::LinkEmbedder::Link::Text::Pastie;
use Mojo::Base 'Mojolicious::Plugin::LinkEmbedder::Link::Text';

has media_id => sub {
  local $_ = shift->url->path->to_string;
  return $1 if m!(?:pastes/)?(\d+)!;
  return '';
};

sub provider_name {'pastie.com'}

sub learn {
  my ($self, $c, $cb) = @_;
  my $raw_url = $self->raw_url or return $self->SUPER::learn($c, $cb);

  $self->ua->get(
    $raw_url,
    sub {
      my ($ua, $tx) = @_;
      if ($tx->success) {
        $self->{text} = $tx->res->dom->at('pre')->content;
        $self->{text} =~ s!!\n!g;
        $self->{text} =~ s!
      }
      $self->$cb;
    },
  );
}

sub pretty_url {
  my $self = shift;
  my $media_id = $self->media_id or return $self->SUPER::pretty_url;

  Mojo::URL->new("http://pastie.org/pastes/$media_id");
}

sub raw_url {
  my $self = shift;
  my $media_id = $self->media_id or return;

  Mojo::URL->new("http://pastie.org/pastes/$media_id/text");
}

1;

=encoding utf8

=head1 NAME

Mojolicious::Plugin::LinkEmbedder::Link::Text::Pastie - pastie.org link

=head1 DESCRIPTION

This class inherit from L.

=head1 OUTPUT HTML

This is an example output:

  $txt

=head1 ATTRIBUTES

=head2 media_id

  $str = $self->media_id;

=head2 provider_name

=head1 METHODS

=head2 learn

=head2 pretty_url

=head2 raw_url

=head1 AUTHOR

Jan Henning Thorsen

=cut