#!/usr/bin/env perl
my
$statement1
= Wikibase::Datatype::Statement->new(
'snak'
=> Wikibase::Datatype::Snak->new(
'datatype'
=>
'wikibase-item'
,
'datavalue'
=> Wikibase::Datatype::Value::Item->new(
'value'
=>
'Q18616576'
,
),
'property'
=>
'P31'
,
),
);
my
$obj
= Wikibase::Datatype::Property->new(
'aliases'
=> [
Wikibase::Datatype::Value::Monolingual->new(
'language'
=>
'cs'
,
'value'
=>
'je'
,
),
Wikibase::Datatype::Value::Monolingual->new(
'language'
=>
'en'
,
'value'
=>
'is a'
,
),
Wikibase::Datatype::Value::Monolingual->new(
'language'
=>
'en'
,
'value'
=>
'is an'
,
),
],
'datatype'
=>
'wikibase-item'
,
'descriptions'
=> [
Wikibase::Datatype::Value::Monolingual->new(
'language'
=>
'cs'
,
'value'
=> decode_utf8(
'tato položka je jedna konkrétní věc (exemplář, '
.
'příklad) patřící do této třídy, kategorie nebo skupiny předmětů'
),
),
Wikibase::Datatype::Value::Monolingual->new(
'language'
=>
'en'
,
'value'
=>
'that class of which this subject is a particular example and member'
,
),
],
'id'
=>
'P31'
,
'labels'
=> [
Wikibase::Datatype::Value::Monolingual->new(
'language'
=>
'cs'
,
'value'
=> decode_utf8(
'instance (čeho)'
),
),
Wikibase::Datatype::Value::Monolingual->new(
'language'
=>
'en'
,
'value'
=>
'instance of'
,
),
],
'page_id'
=> 3918489,
'statements'
=> [
$statement1
,
],
'title'
=>
'Property:P31'
,
);
p
$struct_hr
;