File Coverage

blib/lib/HTML/Video/Embed/Site/LiveLeak.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	6	6	100.0
condition	2	2	100.0
subroutine	3	3	100.0
pod	0	2	0.0
total	27	29	93.1

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

with 'HTML::Video::Embed::Module';

our $VERSION = '0.016000';
$VERSION = eval $VERSION;

sub domain_reg {
    return qr/liveleak\.com/;
}

sub process {
    my ( $self, $embeder, $uri ) = @_;

    return undef if $embeder->secure;

    my $query_param = 'i';

    my $vid = $uri->query_param('i');
    if ( !$vid ){
        $vid = $uri->query_param('f');
        $query_param = 'f';
    }
    $vid ||= '';

    if ( $vid =~ m/^(?:\w{3}_\w{10}|\w{12})$/ ) {
        return qq||;
    }

    return undef;
}

1;