File Coverage

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

Criterion	Covered	Total	%
statement	10	10	100.0
branch	3	4	75.0
condition			n/a
subroutine	3	3	100.0
pod	0	2	0.0
total	16	19	84.2

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

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

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

sub domain_reg {
    qr/collegehumor\.com/
}

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

    my $schema = $embeder->secure ? 'https' : 'http';
    if ( my ( $vid ) = $uri->path =~ m|^/video[:\/](\d+)| ) {
        return qq||;
    }

    return undef;
}

1;