File Coverage

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

Criterion	Covered	Total	%
statement	3	16	18.7
branch	0	6	0.0
condition	0	9	0.0
subroutine	1	3	33.3
pod	1	1	100.0
total	5	35	14.2

package Mojolicious::Plugin::LinkEmbedder::Link::Video;
use Mojo::Base 'Mojolicious::Plugin::LinkEmbedder::Link';

sub to_embed {
  my $self = shift;
  my $url  = $self->url;
  my $type = $url->path =~ /\.(\w+)$/ ? $1 : 'unknown';
  my %args = @_;
  my @extra;

  $type = $self->_types->type($type) || "unknown/$type";
  $args{height} ||= $self->DEFAULT_VIDEO_HEIGHT;
  $args{width}  ||= $self->DEFAULT_VIDEO_WIDTH;

  local $" = ' ';
  push @extra, 'autoplay' if $args{autoplay};
  unshift @extra, '' if @extra;

  return $self->tag(
    video  => width => $args{width},
    height => $args{height},
    class  => 'link-embedder',
    @extra,
    preload  => 'metadata',
    controls => undef,
    sub {
      return join('',
        $self->tag(source => src   => $url,    type => $type),
        $self->tag(p      => class => 'alert', 'Your browser does not support the video tag.'));
    }
  );
}

1;

=encoding utf8

=head1 NAME

Mojolicious::Plugin::LinkEmbedder::Link::Video - Video URL

=head1 DESCRIPTION

This class inherit from L.

=head1 METHODS

=head2 to_embed

TODO. (It returns a video tag for now)

=head1 AUTHOR

Jan Henning Thorsen - C

=cut