File Coverage

blib/lib/MARC/Convert/Wikidata/Item/AudioBook.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::AudioBook;
2              
3 5     5   115158 use base qw(MARC::Convert::Wikidata::Item);
  5         18  
  5         2563  
4 5     5   39 use strict;
  5         10  
  5         105  
5 5     5   26 use warnings;
  5         11  
  5         147  
6              
7 5     5   27 use Unicode::UTF8 qw(decode_utf8);
  5         38  
  5         219  
8 5     5   2609 use Wikibase::Datatype::Item;
  5         7011  
  5         159  
9 5     5   45 use Wikibase::Datatype::Snak;
  5         16  
  5         138  
10 5     5   28 use Wikibase::Datatype::Statement;
  5         11  
  5         133  
11 5     5   30 use Wikibase::Datatype::Value::Item;
  5         10  
  5         1739  
12              
13             our $VERSION = 0.01;
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_introduction,
35             $self->wikidata_ccnb,
36             $self->wikidata_compilers,
37             $self->wikidata_directors,
38             $self->wikidata_dml,
39             $self->wikidata_edition_number,
40             $self->wikidata_editors,
41             $self->wikidata_narrators,
42             $self->wikidata_isbn_10,
43             $self->wikidata_isbn_13,
44             $self->wikidata_krameriuses,
45             $self->wikidata_language,
46             $self->wikidata_number_of_pages,
47             $self->wikidata_oclc,
48             $self->wikidata_place_of_publication,
49             $self->wikidata_publication_date,
50             $self->wikidata_publishers,
51             $self->wikidata_series,
52             $self->wikidata_subtitles,
53             $self->wikidata_title,
54             $self->wikidata_translators,
55             ],
56             );
57              
58 0           return $wikidata;
59             }
60              
61             sub _description {
62 0     0     my ($self, $lang) = @_;
63              
64 0           my $ret;
65 0 0         if ($lang eq 'cs') {
    0          
66 0           $ret = decode_utf8('české vydání audioknihy');
67 0 0         if (defined $self->{'transform_object'}->publication_date) {
68 0           $ret .= ' z roku '.$self->{'transform_object'}->publication_date;
69             }
70              
71             } elsif ($lang eq 'en') {
72 0 0         if (defined $self->{'transform_object'}->publication_date) {
73 0           $ret = $self->{'transform_object'}->publication_date.' ';
74             }
75 0           $ret .= 'Czech audiobook edition';
76             }
77              
78 0           return $ret;
79             }
80              
81             1;
82              
83             __END__