File Coverage

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

Criterion	Covered	Total	%
statement	7	15	46.6
branch	1	2	50.0
condition			n/a
subroutine	3	4	75.0
pod	2	2	100.0
total	13	23	56.5

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

=head1 NAME

Mojolicious::Plugin::LinkEmbedder::Link::Text - Text URL

=head1 DESCRIPTION

This class inherit from L.

=head2 Example styling

  .link-embedder .text-paste{background: #eee;border: 1px solid #ccc;}
  .link-embedder .text-paste .paste-meta{border-bottom: 1px solid #ccc;padding: 4px;}
  .link-embedder .text-paste pre{padding: 4px;margin:0;max-height: 240px;overflow:auto;}

=cut

use Mojo::Base 'Mojolicious::Plugin::LinkEmbedder::Link';
use Mojo::Util ();

=head1 METHODS

=head2 raw_url

=cut

sub raw_url { shift->url->clone }

=head2 to_embed

Returns the HTML code for a script tag that writes the gist.

=cut

sub to_embed {
  return $_[0]->SUPER::to_embed unless $_[0]->{text};

  my $self     = shift;
  my $media_id = $self->media_id;
  my $text     = $self->{text};

  return <<"  HTML";


    Hosted by
    @{[$self->provider_name]}
    -
    View raw

  $text

  HTML
}

=head1 AUTHOR

Jan Henning Thorsen - C

=cut

1;