File Coverage

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

Criterion	Covered	Total	%
statement	11	11	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	17	18	94.4

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

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

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

sub _build_validate_reg{
    return qr|^/videos/(\w+)|;
}

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

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

    return undef;
}

1;