File Coverage

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


line stmt bran cond sub pod time code
1             package HTML::Video::Embed::Site::DailyMotion;
2 11     11   7147 use Moo;
  11         38  
  11         56  
3              
4             with 'HTML::Video::Embed::Module';
5              
6             sub _build_domain_reg{
7 11     11   455 return qr/dailymotion\.com/;
8             }
9              
10             sub _build_validate_reg{
11 1     1   547 return qr|^/video/(\w+)_|;
12             }
13              
14             sub process{
15 3     3 0 7 my ( $self, $embeder, $uri ) = @_;
16              
17 3 100       15 if ( my ( $vid ) = $uri->path =~ m/${ \$self->validate_reg }/ ){
  3         46  
18 1         3 return qq||;
  1         38  
19             }
20            
21 2         89 return undef;
22             }
23              
24             1;