File Coverage

blib/lib/MARC/Convert/Wikidata/Item/BookEdition.pm
Criterion Covered Total %
statement 24 37 64.8
branch 0 8 0.0
condition n/a
subroutine 8 10 80.0
pod 0 1 0.0
total 32 56 57.1


line stmt bran cond sub pod time code
1             package MARC::Convert::Wikidata::Item::BookEdition;
2              
3 5     5   114289 use base qw(MARC::Convert::Wikidata::Item);
  5         37  
  5         1383  
4 5     5   37 use strict;
  5         28  
  5         103  
5 5     5   25 use warnings;
  5         11  
  5         152  
6              
7 5     5   41 use Unicode::UTF8 qw(decode_utf8);
  5         45  
  5         219  
8 5     5   1086 use Wikibase::Datatype::Item;
  5         2896  
  5         141  
9 5     5   62 use Wikibase::Datatype::Snak;
  5         11  
  5         111  
10 5     5   28 use Wikibase::Datatype::Statement;
  5         18  
  5         129  
11 5     5   26 use Wikibase::Datatype::Value::Item;
  5         15  
  5         1749  
12              
13             our $VERSION = 0.02;
14              
15             sub wikidata {
16 0     0 0   my $self = shift;
17              
18 0           my $wikidata = Wikibase::Datatype::Item->new(
19             $self->wikidata_labels,
20             $self->wikidata_descriptions,
21             'statements' => [
22             # instance of: version, edition, or translation
23             Wikibase::Datatype::Statement->new(
24             'snak' => Wikibase::Datatype::Snak->new(
25             'datatype' => 'wikibase-item',
26             'datavalue' => Wikibase::Datatype::Value::Item->new(
27             'value' => 'Q3331189',
28             ),
29             'property' => 'P31',
30             ),
31             ),
32              
33             $self->wikidata_authors,
34             $self->wikidata_authors_of_afterword,
35             $self->wikidata_authors_of_introduction,
36             $self->wikidata_ccnb,
37             $self->wikidata_compilers,
38             $self->wikidata_dml,
39             $self->wikidata_edition_number,
40             $self->wikidata_editors,
41             $self->wikidata_end_time,
42             $self->wikidata_illustrators,
43             $self->wikidata_isbn_10,
44             $self->wikidata_isbn_13,
45             $self->wikidata_krameriuses,
46             $self->wikidata_language,
47             $self->wikidata_number_of_pages,
48             $self->wikidata_oclc,
49             $self->wikidata_place_of_publication,
50             $self->wikidata_photographers,
51             $self->wikidata_publication_date,
52             $self->wikidata_publishers,
53             $self->wikidata_series,
54             $self->wikidata_start_time,
55             $self->wikidata_subtitles,
56             $self->wikidata_title,
57             $self->wikidata_translators,
58             ],
59             );
60              
61 0           return $wikidata;
62             }
63              
64             sub _description {
65 0     0     my ($self, $lang) = @_;
66              
67 0           my $ret;
68 0 0         if ($lang eq 'cs') {
    0          
69 0           $ret = decode_utf8('české knižní vydání');
70 0 0         if (defined $self->{'transform_object'}->publication_date) {
71 0           $ret .= ' z roku '.$self->{'transform_object'}->publication_date;
72             }
73              
74             } elsif ($lang eq 'en') {
75 0 0         if (defined $self->{'transform_object'}->publication_date) {
76 0           $ret = $self->{'transform_object'}->publication_date.' ';
77             }
78 0           $ret .= 'Czech book edition';
79             }
80              
81 0           return $ret;
82             }
83              
84             1;
85              
86             __END__