File Coverage

blib/lib/HTML/Video/Embed/Site/EbaumsWorld.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


line stmt bran cond sub pod time code
1             package HTML::Video::Embed::Site::EbaumsWorld;
2 9     9   3726 use Moo;
  9         13  
  9         37  
3              
4             with 'HTML::Video::Embed::Module';
5              
6             our $VERSION = '0.016000';
7             $VERSION = eval $VERSION;
8              
9             sub domain_reg {
10 10     10 0 52 qr/ebaumsworld\.com/;
11             }
12              
13             sub process {
14 3     3 0 4 my ( $self, $embeder, $uri ) = @_;
15              
16 3 50       8 return undef if $embeder->secure;
17 3 100       10 if ( my ( $vid ) = $uri->path =~ m|^/video/watch/(\d+)| ) {
18 1         13 return qq||;
  1         18  
19             }
20              
21 2         24 return undef;
22             }
23              
24             1;