File Coverage

blib/lib/HTML/Video/Embed/Site/DailyMotion.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::DailyMotion;
2 9     9   3913 use Moo;
  9         15  
  9         36  
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 49 qr/dailymotion\.com/;
11             }
12              
13             sub process {
14 3     3 0 4 my ( $self, $embeder, $uri ) = @_;
15              
16 3 50       8 my $schema = $embeder->secure ? 'https' : 'http';
17 3 100       10 if ( my ( $vid ) = $uri->path =~ m|^/video/(\w+)_| ) {
18 1         12 return qq||;
  1         17  
19             }
20              
21 2         26 return undef;
22             }
23              
24             1;