File Coverage

blib/lib/Test/Shared/Fixture/Wikibase/Datatype/Statement/Wikidata/InstanceOf/Human.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 26 26 100.0


line stmt bran cond sub pod time code
1             package Test::Shared::Fixture::Wikibase::Datatype::Statement::Wikidata::InstanceOf::Human;
2              
3 7     7   466202 use base qw(Wikibase::Datatype::Statement);
  7         69  
  7         2257  
4 7     7   58 use strict;
  7         18  
  7         177  
5 7     7   49 use warnings;
  7         19  
  7         192  
6              
7 7     7   3615 use Test::Shared::Fixture::Wikibase::Datatype::Reference::Wikidata::VIAF;
  7         30  
  7         332  
8 7     7   3430 use Test::Shared::Fixture::Wikibase::Datatype::Snak::Wikidata::InstanceOf::Human;
  7         24  
  7         790  
9              
10             our $VERSION = 0.30;
11              
12             sub new {
13 3     3 1 1451 my $class = shift;
14              
15 3         41 my @params = (
16             'snak' => Test::Shared::Fixture::Wikibase::Datatype::Snak::Wikidata::InstanceOf::Human->new,
17             'references' => [
18             Test::Shared::Fixture::Wikibase::Datatype::Reference::Wikidata::VIAF->new,
19             ],
20             );
21              
22 3         26 my $self = $class->SUPER::new(@params);
23              
24 3         36 return $self;
25             }
26              
27             1;
28              
29             __END__
30              
31             =pod
32              
33             =encoding utf8
34              
35             =head1 NAME
36              
37             Test::Shared::Fixture::Wikibase::Datatype::Statement::Wikidata::InstanceOf::Human - Test instance for Wikidata statement.
38              
39             =head1 SYNOPSIS
40              
41             use Test::Shared::Fixture::Wikibase::Datatype::Statement::Wikidata::InstanceOf::Human;
42              
43             my $obj = Test::Shared::Fixture::Wikibase::Datatype::Statement::Wikidata::InstanceOf::Human->new(%params);
44             my $id = $obj->id;
45             my $property_snaks_ar = $obj->property_snaks;
46             my $rank = $obj->rank;
47             my $referenes_ar = $obj->references;
48             my $snak = $obj->snak;
49              
50             =head1 METHODS
51              
52             =head2 C<new>
53              
54             my $obj = Test::Shared::Fixture::Wikibase::Datatype::Statement::Wikidata::InstanceOf::Human->new(%params);
55              
56             Constructor.
57              
58             Returns instance of object.
59              
60             =head2 C<id>
61              
62             my $id = $obj->id;
63              
64             Get id of statement.
65              
66             Returns string.
67              
68             =head2 C<property_snaks>
69              
70             my $property_snaks_ar = $obj->property_snaks;
71              
72             Get property snaks.
73              
74             Returns reference to array with Wikibase::Datatype::Snak instances.
75              
76             =head2 C<rank>
77              
78             my $rank = $obj->rank;
79              
80             Get rank value.
81              
82             =head2 C<references>
83              
84             my $referenes_ar = $obj->references;
85              
86             Get references.
87              
88             Returns reference to array with Wikibase::Datatype::Reference instance.
89              
90             =head2 C<snak>
91              
92             my $snak = $obj->snak;
93              
94             Get main snak.
95              
96             Returns Wikibase::Datatype::Snak instance.
97              
98             =head1 EXAMPLE
99              
100             =for comment filename=fixture_create_and_print_statement_wd_instance_of_human.pl
101              
102             use strict;
103             use warnings;
104              
105             use Test::Shared::Fixture::Wikibase::Datatype::Statement::Wikidata::InstanceOf::Human;
106             use Wikibase::Datatype::Print::Statement;
107              
108             # Object.
109             my $obj = Test::Shared::Fixture::Wikibase::Datatype::Statement::Wikidata::InstanceOf::Human->new;
110              
111             # Print out.
112             print scalar Wikibase::Datatype::Print::Statement::print($obj);
113              
114             # Output:
115             # P31: Q5 (normal)
116             # References:
117             # {
118             # P248: Q53919
119             # P214: 113230702
120             # P813: 7 December 2013 (Q1985727)
121             # }
122              
123             =head1 DEPENDENCIES
124              
125             L<Test::Shared::Fixture::Wikibase::Datatype::Reference::Wikidata::VIAF>,
126             L<Test::Shared::Fixture::Wikibase::Datatype::Snak::Wikidata::InstanceOf::Human>,
127             L<Wikibase::Datatype::Statement>.
128              
129             =head1 SEE ALSO
130              
131             =over
132              
133             =item L<Wikibase::Datatype>
134              
135             Wikibase datatypes.
136              
137             =item L<Wikibase::Datatype::Statement>
138              
139             Wikibase statement datatype.
140              
141             =back
142              
143             =head1 REPOSITORY
144              
145             L<https://github.com/michal-josef-spacek/Wikibase-Datatype>
146              
147             =head1 AUTHOR
148              
149             Michal Josef Špaček L<mailto:skim@cpan.org>
150              
151             L<http://skim.cz>
152              
153             =head1 LICENSE AND COPYRIGHT
154              
155             © 2020-2023 Michal Josef Špaček
156              
157             BSD 2-Clause License
158              
159             =head1 VERSION
160              
161             0.30
162              
163             =cut