File Coverage

blib/lib/Mojolicious/Plugin/LinkEmbedder/Link/Video/Vimeo.pm

Criterion	Covered	Total	%
statement	3	13	23.0
branch	0	4	0.0
condition	0	4	0.0
subroutine	1	4	25.0
pod	3	3	100.0
total	7	28	25.0

package Mojolicious::Plugin::LinkEmbedder::Link::Video::Vimeo;

=head1 NAME

Mojolicious::Plugin::LinkEmbedder::Link::Video::Vimeo - vimeo.com video

=head1 DESCRIPTION

This class inherit from L.

=cut

use Mojo::Base 'Mojolicious::Plugin::LinkEmbedder::Link::Text::HTML';

=head1 ATTRIBUTES

=head2 media_id

Returns the the digit from the url L.

=head2 provider_name

=cut

has media_id => sub {
  my $self     = shift;
  my $media_id = $self->url->path->[-1];

  $media_id =~ s!\.html$!!;
  $media_id;
};

sub provider_name {'Vimeo'}

=head1 METHODS

=head2 learn

=cut

sub learn {
  my ($self, $c, $cb) = @_;

  return $self->SUPER::learn($c, $cb) unless $self->media_id;
  $self->$cb;
  $self;
}

=head2 to_embed

Returns the HTML code for an iframe embedding this movie.

=cut

sub to_embed {
  my $self     = shift;
  my $media_id = $self->media_id or return $self->SUPER::to_embed;
  my $src      = Mojo::URL->new('//player.vimeo.com/video/86404451?portrait=0&color=ffffff');
  my %args     = @_;

  $self->_iframe(
    src    => "//player.vimeo.com/video/$media_id?portrait=0&color=ffffff",
    class  => 'link-embedder video-vimeo',
    width  => $args{width} || 500,
    height => $args{height} || 281
  );
}

=head1 AUTHOR

Marcus Ramberg

=cut

1;