File Coverage

blib/lib/Test/Shared/Fixture/Wikibase/Datatype/MediainfoStatement/Commons/Depicts/Human.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 22 22 100.0


line stmt bran cond sub pod time code
1             package Test::Shared::Fixture::Wikibase::Datatype::MediainfoStatement::Commons::Depicts::Human;
2              
3 6     6   342876 use base qw(Wikibase::Datatype::MediainfoStatement);
  6         44  
  6         2750  
4 6     6   43 use strict;
  6         16  
  6         169  
5 6     6   33 use warnings;
  6         15  
  6         152  
6              
7 6     6   3125 use Test::Shared::Fixture::Wikibase::Datatype::MediainfoSnak::Commons::Depicts::Human;
  6         27  
  6         655  
8              
9             our $VERSION = 0.29;
10              
11             sub new {
12 2     2 1 141 my $class = shift;
13              
14 2         20 my @params = (
15             'snak' => Test::Shared::Fixture::Wikibase::Datatype::MediainfoSnak::Commons::Depicts::Human->new,
16             );
17              
18 2         35 my $self = $class->SUPER::new(@params);
19              
20 2         22 return $self;
21             }
22              
23             1;
24              
25             __END__