File Coverage

blib/lib/HTML/Video/Embed/Site/MetaCafe.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::MetaCafe;
2 9     9   3853 use Moo;
  9         12  
  9         40  
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 54 qr/metacafe\.com/;
11             }
12              
13             sub process{
14 2     2 0 3 my ( $self, $embeder, $uri ) = @_;
15              
16 2 50       6 return undef if $embeder->secure;
17 2 100       10 if ( my ( $vid ) = $uri->path =~ m|^/watch/(\d+)/| ) {
18 1         14 return qq||;
  1         18  
19             }
20              
21 1         14 return undef;
22             }
23              
24             1;