File Coverage

blib/lib/Test/Shared/Fixture/Wikibase/Datatype/Reference/Wikidata/ReferenceURL.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::Reference::Wikidata::ReferenceURL;
2              
3 10     10   460220 use base qw(Wikibase::Datatype::Reference);
  10         66  
  10         3408  
4 10     10   75 use strict;
  10         28  
  10         193  
5 10     10   49 use warnings;
  10         26  
  10         302  
6              
7 10     10   4917 use Test::Shared::Fixture::Wikibase::Datatype::Snak::Wikidata::ReferenceURL::Fixture1;
  10         35  
  10         385  
8 10     10   3467 use Test::Shared::Fixture::Wikibase::Datatype::Snak::Wikidata::Retrieved::Fixture1;
  10         29  
  10         1128  
9              
10             our $VERSION = 0.29;
11              
12             sub new {
13 4     4 1 1004 my $class = shift;
14              
15 4         36 my @params = (
16             'snaks' => [
17             # reference URL (P854) https://skim.cz
18             Test::Shared::Fixture::Wikibase::Datatype::Snak::Wikidata::ReferenceURL::Fixture1->new,
19              
20             # retrieved (P813) 7 December 2013
21             Test::Shared::Fixture::Wikibase::Datatype::Snak::Wikidata::Retrieved::Fixture1->new,
22             ],
23             );
24              
25 4         49 my $self = $class->SUPER::new(@params);
26              
27 4         48 return $self;
28             }
29              
30             1;
31              
32             __END__
33              
34             =pod
35              
36             =encoding utf8
37              
38             =head1 NAME
39              
40             Test::Shared::Fixture::Wikibase::Datatype::Reference::Wikidata::ReferenceURL - Test instance for Wikidata reference.
41              
42             =head1 SYNOPSIS
43              
44             use Test::Shared::Fixture::Wikibase::Datatype::Reference::Wikidata::ReferenceURL;
45              
46             my $obj = Test::Shared::Fixture::Wikibase::Datatype::Reference::Wikidata::ReferenceURL->new;
47             my $snaks_ar = $obj->snaks;
48              
49             =head1 METHODS
50              
51             =head2 C<new>
52              
53             my $obj = Test::Shared::Fixture::Wikibase::Datatype::Reference::Wikidata::ReferenceURL->new;
54              
55             Constructor.
56              
57             Returns instance of object.
58              
59             =head2 C<snaks>
60              
61             my $snaks_ar = $obj->snaks;
62              
63             Get snaks.
64              
65             Returns reference to array of Wikibase::Datatype::Snak instances.
66              
67             =head1 EXAMPLE
68              
69             =for comment filename=fixture_create_and_print_reference_wd_url.pl
70              
71             use strict;
72             use warnings;
73              
74             use Test::Shared::Fixture::Wikibase::Datatype::Reference::Wikidata::ReferenceURL;
75             use Wikibase::Datatype::Print::Reference;
76              
77             # Object.
78             my $obj = Test::Shared::Fixture::Wikibase::Datatype::Reference::Wikidata::ReferenceURL->new;
79              
80             # Print out.
81             print scalar Wikibase::Datatype::Print::Reference::print($obj);
82              
83             # Output:
84             # {
85             # P854: https://skim.cz
86             # P813: 07 December 2013 (Q1985727)
87             # }
88              
89             =head1 DEPENDENCIES
90              
91             L<Test::Shared::Fixture::Wikibase::Datatype::Snak::Wikidata::ReferenceURL::Fixture1>,
92             L<Test::Shared::Fixture::Wikibase::Datatype::Snak::Wikidata::Retrieved::Fixture1>,
93             L<Wikibase::Datatype::Reference>.
94              
95             =head1 SEE ALSO
96              
97             =over
98              
99             =item L<Wikibase::Datatype>
100              
101             Wikibase datatypes.
102              
103             =item L<Wikibase::Datatype::Reference>
104              
105             Wikibase reference value datatype.
106              
107             =back
108              
109             =head1 REPOSITORY
110              
111             L<https://github.com/michal-josef-spacek/Wikibase-Datatype>
112              
113             =head1 AUTHOR
114              
115             Michal Josef Špaček L<mailto:skim@cpan.org>
116              
117             L<http://skim.cz>
118              
119             =head1 LICENSE AND COPYRIGHT
120              
121             © 2020-2023 Michal Josef Špaček
122              
123             BSD 2-Clause License
124              
125             =head1 VERSION
126              
127             0.29
128              
129             =cut