File Coverage

blib/lib/HTML/Video/Embed.pm

Criterion	Covered	Total	%
statement	39	39	100.0
branch	6	6	100.0
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	55	55	100.0

package HTML::Video::Embed;
use Moo;

use URI;
use URI::QueryParam;
use URI::Escape::XS;

use Data::Validate::URI qw/is_web_uri/;
use Module::Find;

our $VERSION = '0.015003';
$VERSION = eval $VERSION;

has 'class' => (
    'is' => 'rw',
    'required' => 1,
);

has '_modules' => (
    'is' => 'ro',
    'init_arg' => undef,
    'builder' => '_build__modules',
);

sub _build__modules{
    my ( $self ) = @_;

    my $namespace = ref( $self ) . "::Site";

    my @mods = useall( $namespace );

    my $modules = {};
    foreach my $mod ( @mods ){
        my $module = $mod->new;
        $modules->{ $module->domain_reg } = $module;
    }

    return $modules;
}

sub url_to_embed{
    my ( $self, $url ) = @_;

    my ( $domain_reg, $uri ) = $self->_is_video( $url );
    if ( defined( $domain_reg ) ){
        return $self->_modules->{ $domain_reg }->process( $self, $uri );
    }

    return undef;
}

sub _is_video{
    my ( $self, $url ) = @_;

    return undef if ( !is_web_uri($url) );

    my $uri = URI->new( URI::Escape::XS::uri_unescape($url) );

    foreach my $domain_reg ( keys(%{ $self->_modules }) ){
#figure out if url is supported
        if ( $uri->host =~ m/$domain_reg/ ){
            return ( $domain_reg, $uri );
        }
    }

    return undef;
}

1;

=head1 NAME

HTML::Video::Embed - convert a url into a html embed string

=head1 SYNOPSIS

    #css
    .css-video-class{
        width:570px;
        height:340px;
    }

    #perl
    use HTML::Video::Embed;

    my $embedder = HTML::Video::Embed->new({
        'class' => 'css-video-class',
    });

    my $url = 'http://www.youtube.com/watch?v=HMhks1TSFog';

    my $html_embed_code = $embedder->url_to_embed( $url );

$html_embed_code is now == ""

    my $url = 'http://this.is.not/a_supported-video_url';

    my $html_embed_code = $embedder->url_to_embed( $url );

$html_embed_code is now == undef


=head1 DESCRIPTION

Converts urls into html embed codes, supported sites are

    Collegehumor
    DailyMotion
    EbaumsWorld
    FunnyOrDie
    Kontraband
    LiveLeak
    MetaCafe
    Vimeo
    YahooScreen
    Youtube
    Youtu.be

=head1 METHODS

=head2 new

Takes one argument, class, which sets the css class of the video

=head2 url_to_embed

converts a url into the html embed code

returns html on success, or undef if not supported

=head1 AUTHORS

Mark Ellis [e-mail]

=head1 SEE ALSO

L

=head1 LICENSE

Copyright 2014 Mark Ellis [e-mail]

This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut