File Coverage

blib/lib/Test/Shared/Fixture/Wikibase/Datatype/Statement/Wikidata/SexOrGender/Male.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 30 30 100.0


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