File Coverage

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

Criterion	Covered	Total	%
statement	17	17	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	4	4	100.0
pod	0	1	0.0
total	27	28	96.4

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

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

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

sub _build_validate_reg{
    return qr/^(?:\w{3}_\w{10}|\w{12})$/;
}

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

    my $query_param = 'i';

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

    if ( $vid =~ m/${ \$self->validate_reg }/ ){
        return qq||;
    }

    return undef;
}

1;