File Coverage

blib/lib/Test/Shared/Fixture/Wikibase/Datatype/MediainfoSnak/Commons/Depicts/Human.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 22 22 100.0


line stmt bran cond sub pod time code
1             package Test::Shared::Fixture::Wikibase::Datatype::MediainfoSnak::Commons::Depicts::Human;
2              
3 9     9   412730 use base qw(Wikibase::Datatype::MediainfoSnak);
  9         47  
  9         3683  
4 9     9   68 use strict;
  9         20  
  9         201  
5 9     9   45 use warnings;
  9         17  
  9         299  
6              
7 9     9   6310 use Test::Shared::Fixture::Wikibase::Datatype::Value::Item::Wikidata::DouglasAdams;
  9         25  
  9         1072  
8              
9             our $VERSION = 0.31;
10              
11             sub new {
12 3     3 1 122 my $class = shift;
13              
14 3         44 my @params = (
15             'datavalue' => Test::Shared::Fixture::Wikibase::Datatype::Value::Item::Wikidata::DouglasAdams->new,
16             'property' => 'P180',
17             );
18              
19 3         29 my $self = $class->SUPER::new(@params);
20              
21 3         34 return $self;
22             }
23              
24             1;
25              
26             __END__
27              
28             =pod
29              
30             =encoding utf8
31              
32             =head1 NAME
33              
34             Test::Shared::Fixture::Wikibase::Datatype::MediainfoSnak::Commons::Depicts::Human - Test instance for Wikimedia Commons mediainfo snak.
35              
36             =head1 SYNOPSIS
37              
38             use Test::Shared::Fixture::Wikibase::Datatype::MediainfoSnak::Commons::Depicts::Human;
39              
40             my $obj = Test::Shared::Fixture::Wikibase::Datatype::MediainfoSnak::Commons::Depicts::Human->new(%params);
41             my $datavalue = $obj->datavalue;
42             my $property = $obj->property;
43             my $snaktype = $obj->snaktype;
44              
45             =head1 METHODS
46              
47             =head2 C<new>
48              
49             my $obj = Test::Shared::Fixture::Wikibase::Datatype::MediainfoSnak::Commons::Depicts::Human->new(%params);
50              
51             Constructor.
52              
53             Returns instance of object.
54              
55             =head2 C<datavalue>
56              
57             my $datavalue = $obj->datavalue;
58              
59             Get data value.
60              
61             Returns instance of Wikibase::Datatype::Value.
62              
63             =head2 C<property>
64              
65             my $property = $obj->property;
66              
67             Get property name.
68              
69             Returns string.
70              
71             =head2 C<snaktype>
72              
73             my $snaktype = $obj->snaktype;
74              
75             Get snak type.
76              
77             Returns string.
78              
79             =head1 EXAMPLE
80              
81             =for comment filename=fixture_create_and_print_mediainfo_snak_commons_depicts_human.pl
82              
83             use strict;
84             use warnings;
85              
86             use Test::Shared::Fixture::Wikibase::Datatype::MediainfoSnak::Commons::Depicts::Human;
87             use Wikibase::Datatype::Print::MediainfoSnak;
88              
89             # Object.
90             my $obj = Test::Shared::Fixture::Wikibase::Datatype::MediainfoSnak::Commons::Depicts::Human->new;
91              
92             # Print out.
93             print scalar Wikibase::Datatype::Print::MediainfoSnak::print($obj);
94              
95             # Output:
96             # P180: Q42
97              
98             =head1 DEPENDENCIES
99              
100             L<Test::Shared::Fixture::Wikibase::Datatype::Value::Item::Wikidata::DouglasAdams>,
101             L<Wikibase::Datatype::MediainfoSnak>.
102              
103             =head1 SEE ALSO
104              
105             =over
106              
107             =item L<Wikibase::Datatype>
108              
109             Wikibase datatypes.
110              
111             =item L<Wikibase::Datatype::MediainfoSnak>
112              
113             Wikibase mediainfo snak datatype.
114              
115             =back
116              
117             =head1 REPOSITORY
118              
119             L<https://github.com/michal-josef-spacek/Wikibase-Datatype>
120              
121             =head1 AUTHOR
122              
123             Michal Josef Špaček L<mailto:skim@cpan.org>
124              
125             L<http://skim.cz>
126              
127             =head1 LICENSE AND COPYRIGHT
128              
129             © 2020-2023 Michal Josef Špaček
130              
131             BSD 2-Clause License
132              
133             =head1 VERSION
134              
135             0.31
136              
137             =cut