File Coverage

blib/lib/Test/Shared/Fixture/Wikibase/Datatype/Mediainfo/Commons/ImageOfHuman.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::Mediainfo::Commons::ImageOfHuman;
2              
3 3     3   343822 use base qw(Wikibase::Datatype::Mediainfo);
  3         39  
  3         1453  
4 3     3   28 use strict;
  3         6  
  3         78  
5 3     3   19 use warnings;
  3         6  
  3         76  
6              
7 3     3   1549 use Test::Shared::Fixture::Wikibase::Datatype::MediainfoStatement::Commons::Depicts::Human;
  3         10  
  3         136  
8 3     3   1194 use Wikibase::Datatype::Value::Monolingual;
  3         13  
  3         460  
9              
10             our $VERSION = 0.29;
11              
12             sub new {
13 1     1 1 146 my $class = shift;
14              
15 1         14 my @params = (
16             'descriptions' => [
17             ],
18             'id' => 'M10031710',
19             'labels' => [
20             Wikibase::Datatype::Value::Monolingual->new(
21             'language' => 'en',
22             'value' => 'Portrait of Douglas Adams',
23             ),
24             ],
25             'lastrevid' => 617544224,
26             'modified' => '2021-12-30T08:38:29Z',
27             'ns' => 6,
28             'pageid' => 10031710,
29             'statements' => [
30             Test::Shared::Fixture::Wikibase::Datatype::MediainfoStatement::Commons::Depicts::Human->new,
31             ],
32             'title' => 'File:Douglas adams portrait cropped.jpg',
33             );
34              
35 1         8 my $self = $class->SUPER::new(@params);
36              
37 1         11 return $self;
38             }
39              
40             1;
41              
42             __END__
43              
44             =pod
45              
46             =encoding utf8
47              
48             =head1 NAME
49              
50             Test::Shared::Fixture::Wikibase::Datatype::Mediainfo::Commons::ImageOfHuman - Test instance for Wikidata mediainfo.
51              
52             =head1 SYNOPSIS
53              
54             use Test::Shared::Fixture::Wikibase::Datatype::Mediainfo::Commons::ImageOfHuman;
55              
56             my $obj = Test::Shared::Fixture::Wikibase::Datatype::Mediainfo::Commons::ImageOfHuman->new;
57             my $descriptions_ar = $obj->descriptions;
58             my $id = $obj->id;
59             my $labels_ar = $obj->labels;
60             my $lastrevid = $obj->lastrevid;
61             my $modified = $obj->modified;
62             my $ns = $obj->ns;
63             my $page_id = $obj->page_id;
64             my $statements_ar = $obj->statements;
65             my $title = $obj->title;
66              
67             =head1 METHODS
68              
69             =head2 C<new>
70              
71             my $obj = Test::Shared::Fixture::Wikibase::Datatype::Mediainfo::Commons::ImageOfHuman->new;
72              
73             Constructor.
74              
75             Returns instance of object.
76              
77             =head2 C<descriptions>
78              
79             my $descriptions_ar = $obj->descriptions;
80              
81             Get descriptions.
82              
83             Returns reference to array with Wikibase::Datatype::Value::Monolingual instances.
84              
85             =head2 C<id>
86              
87             my $id = $obj->id;
88              
89             Get id.
90              
91             Returns string.
92              
93             =head2 C<labels>
94              
95             my $labels_ar = $obj->labels;
96              
97             Get labels.
98              
99             Returns reference to array with Wikibase::Datatype::Value::Monolingual instances.
100              
101             =head2 C<lastrevid>
102              
103             my $lastrevid = $obj->lastrevid;
104              
105             Get last revision ID.
106              
107             Returns string.
108              
109             =head2 C<modified>
110              
111             my $modified = $obj->modified;
112              
113             Get date of modification.
114              
115             Returns string.
116              
117             =head2 C<ns>
118              
119             my $ns = $obj->ns;
120              
121             Get namespace.
122              
123             Returns number.
124              
125             =head2 C<page_id>
126              
127             my $page_id = $obj->page_id;
128              
129             Get page id.
130              
131             Returns number.
132              
133             =head2 C<statements>
134              
135             my $statements_ar = $obj->statements;
136              
137             Get statements.
138              
139             Returns reference to array with Wikibase::Datatype::MediainfoStatement instances.
140              
141             =head2 C<title>
142              
143             my $title = $obj->title;
144              
145             Get title.
146              
147             Returns string.
148              
149             =head1 EXAMPLE
150              
151             =for comment filename=fixture_create_and_print_mediainfo_commons_imageofhuman.pl
152              
153             use strict;
154             use warnings;
155              
156             use Test::Shared::Fixture::Wikibase::Datatype::Mediainfo::Commons::ImageOfHuman;
157             use Unicode::UTF8 qw(encode_utf8);
158             use Wikibase::Datatype::Print::Mediainfo;
159              
160             # Object.
161             my $obj = Test::Shared::Fixture::Wikibase::Datatype::Mediainfo::Commons::ImageOfHuman->new;
162              
163             # Print out.
164             print encode_utf8(scalar Wikibase::Datatype::Print::Mediainfo::print($obj))."\n";
165              
166             # Output:
167             # Id: M10031710
168             # Title: File:Douglas adams portrait cropped.jpg
169             # NS: 6
170             # Last revision id: 617544224
171             # Date of modification: 2021-12-30T08:38:29Z
172             # Label: Portrait of Douglas Adams (en)
173             # Statements:
174             # P180: Q42 (normal)
175              
176             =head1 DEPENDENCIES
177              
178             L<Test::Shared::Fixture::Wikibase::Datatype::MediainfoStatement::Commons::Depicts::Human>,
179             L<Wikibase::Datatype::Mediainfo>,
180             L<Wikibase::Datatype::Value::Monolingual>.
181              
182             =head1 SEE ALSO
183              
184             =over
185              
186             =item L<Wikibase::Datatype>
187              
188             Wikibase datatypes.
189              
190             =item L<Wikibase::Datatype::Mediainfo>
191              
192             Wikibase mediainfo datatype.
193              
194             =back
195              
196             =head1 REPOSITORY
197              
198             L<https://github.com/michal-josef-spacek/Wikibase-Datatype>
199              
200             =head1 AUTHOR
201              
202             Michal Josef Špaček L<mailto:skim@cpan.org>
203              
204             L<http://skim.cz>
205              
206             =head1 LICENSE AND COPYRIGHT
207              
208             © 2020-2023 Michal Josef Špaček
209              
210             BSD 2-Clause License
211              
212             =head1 VERSION
213              
214             0.29
215              
216             =cut