File Coverage

blib/lib/Test/Shared/Fixture/Wikibase/Datatype/Item/Wikidata/DouglasAdams.pm
Criterion Covered Total %
statement 25 25 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 1 1 100.0
total 34 34 100.0


line stmt bran cond sub pod time code
1             package Test::Shared::Fixture::Wikibase::Datatype::Item::Wikidata::DouglasAdams;
2              
3 3     3   345609 use base qw(Wikibase::Datatype::Item);
  3         36  
  3         1623  
4 3     3   20 use strict;
  3         9  
  3         114  
5 3     3   18 use warnings;
  3         6  
  3         87  
6              
7 3     3   1553 use Test::Shared::Fixture::Wikibase::Datatype::Statement::Wikidata::GivenName::Douglas;
  3         13  
  3         93  
8 3     3   1370 use Test::Shared::Fixture::Wikibase::Datatype::Statement::Wikidata::InstanceOf::Human;
  3         9  
  3         97  
9 3     3   1391 use Test::Shared::Fixture::Wikibase::Datatype::Statement::Wikidata::SexOrGender::Male;
  3         9  
  3         94  
10 3     3   20 use Wikibase::Datatype::Value::Monolingual;
  3         7  
  3         438  
11              
12             our $VERSION = 0.29;
13              
14             sub new {
15 1     1 1 114 my $class = shift;
16              
17 1         12 my @params = (
18             'aliases' => [
19             Wikibase::Datatype::Value::Monolingual->new(
20             'language' => 'en',
21             'value' => 'Douglas Noel Adams',
22             ),
23             ],
24             'descriptions' => [
25             Wikibase::Datatype::Value::Monolingual->new(
26             'language' => 'en',
27             'value' => 'English writer and humorist (1952-2001)',
28             ),
29             ],
30             'labels' => [
31             Wikibase::Datatype::Value::Monolingual->new(
32             'language' => 'en',
33             'value' => 'Douglas Adams',
34             ),
35             ],
36             'lastrevid' => 1645190860,
37             'modified' => '2022-06-24T13:34:10Z',
38             'ns' => 0,
39             'statements' => [
40             Test::Shared::Fixture::Wikibase::Datatype::Statement::Wikidata::InstanceOf::Human->new,
41             Test::Shared::Fixture::Wikibase::Datatype::Statement::Wikidata::SexOrGender::Male->new,
42             Test::Shared::Fixture::Wikibase::Datatype::Statement::Wikidata::GivenName::Douglas->new,
43             ],
44             'title' => 'Q42',
45             );
46              
47 1         18 my $self = $class->SUPER::new(@params);
48              
49 1         12 return $self;
50             }
51              
52             1;
53              
54             __END__