The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

SKIM / MARC-Convert-Wikidata-Object-0.10 / examples / create_and_dump_wikidata_object.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89

              
#!/usr/bin/env perl
use strict;
use warnings;
use Data::Printer;
use MARC::Convert::Wikidata::Object;
use MARC::Convert::Wikidata::Object::ExternalId;
use MARC::Convert::Wikidata::Object::ISBN;
use MARC::Convert::Wikidata::Object::People;
use MARC::Convert::Wikidata::Object::Publisher;
use Unicode::UTF8 qw(decode_utf8);
my $aut = MARC::Convert::Wikidata::Object::People->new(
        'date_of_birth' => '1952-12-08',
        'external_ids' => [
                MARC::Convert::Wikidata::Object::ExternalId->new(
                        'name' => 'nkcr_aut',
                        'value' => 'jn20000401266',
                ),
        ],
        'name' => decode_utf8('Jiří'),
        'surname' => 'Jurok',
);
my $publisher = MARC::Convert::Wikidata::Object::Publisher->new(
        'name' => decode_utf8('Město Příbor'),
        'place' => decode_utf8('Příbor'),
);
my $isbn = MARC::Convert::Wikidata::Object::ISBN->new(
        'isbn' => '80-238-9541-9',
        'publisher' => $publisher,
);
my $obj = MARC::Convert::Wikidata::Object->new(
        'authors' => [$aut],
        'date_of_publication' => 2002,
        'edition_number' => 2,
        'external_ids' => [
                MARC::Convert::Wikidata::Object::ExternalId->new(
                        'name' => 'cnb',
                        'value' => 'cnb001188266',
                ),
                MARC::Convert::Wikidata::Object::ExternalId->new(
                        'name' => 'lccn',
                        'value' => '53860313',
                ),
        ],
        'isbns' => [$isbn],
        'number_of_pages' => 414,
        'publishers' => [$publisher],
);
p $obj;
# Output:
# MARC::Convert::Wikidata::Object  {
#     parents: Mo::Object
#     public methods (8):
#         BUILD, full_name
#         Error::Pure:
#             err
#         List::MoreUtils::XS:
#             none
#         Mo::utils:
#             check_array, check_array_object, check_number
#         Readonly:
#             Readonly
#     private methods (0)
#     internals: {
#         authors               [
#             [0] MARC::Convert::Wikidata::Object::People
#         ],
#         date_of_publication   2002,
#         edition_number        2,
#         external_ids          [
#             [0] MARC::Convert::Wikidata::Object::ExternalId,
#             [1] MARC::Convert::Wikidata::Object::ExternalId
#         ],
#         isbns                 [
#             [0] MARC::Convert::Wikidata::Object::ISBN
#         ],
#         number_of_pages       414,
#         publishers            [
#             [0] MARC::Convert::Wikidata::Object::Publisher
#         ]
#     }
# }