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   346569 use base qw(Wikibase::Datatype::Item);
  3         35  
  3         1588  
4 3     3   32 use strict;
  3         9  
  3         105  
5 3     3   20 use warnings;
  3         9  
  3         107  
6              
7 3     3   1840 use Test::Shared::Fixture::Wikibase::Datatype::Statement::Wikidata::GivenName::Douglas;
  3         18  
  3         109  
8 3     3   1358 use Test::Shared::Fixture::Wikibase::Datatype::Statement::Wikidata::InstanceOf::Human;
  3         9  
  3         109  
9 3     3   1337 use Test::Shared::Fixture::Wikibase::Datatype::Statement::Wikidata::SexOrGender::Male;
  3         11  
  3         96  
10 3     3   22 use Wikibase::Datatype::Value::Monolingual;
  3         7  
  3         455  
11              
12             our $VERSION = 0.30;
13              
14             sub new {
15 1     1 1 112 my $class = shift;
16              
17 1         14 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         9 my $self = $class->SUPER::new(@params);
48              
49 1         11 return $self;
50             }
51              
52             1;
53              
54             __END__