#!/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'
,
);
print
"Title: "
.
$obj
->title.
"\n"
;
print
'Id: '
.
$obj
->id.
"\n"
;
print
'Data type: '
.
$obj
->datatype.
"\n"
;
print
'Page id: '
.
$obj
->page_id.
"\n"
;
print
"Labels:\n"
;
foreach
my
$label
(
sort
{
$a
->language cmp
$b
->language } @{
$obj
->labels}) {
print
"\t"
.encode_utf8(
$label
->value).
' ('
.
$label
->language.
")\n"
;
}
print
"Descriptions:\n"
;
foreach
my
$desc
(
sort
{
$a
->language cmp
$b
->language } @{
$obj
->descriptions}) {
print
"\t"
.encode_utf8(
$desc
->value).
' ('
.
$desc
->language.
")\n"
;
}
print
"Aliases:\n"
;
foreach
my
$alias
(
sort
{
$a
->language cmp
$b
->language } @{
$obj
->aliases}) {
print
"\t"
.encode_utf8(
$alias
->value).
' ('
.
$alias
->language.
")\n"
;
}
print
"Statements:\n"
;
foreach
my
$statement
(@{
$obj
->statements}) {
print
"\tStatement:\n"
;
print
"\t\t"
.
$statement
->snak->property.
' -> '
.
$statement
->snak->datavalue->value.
"\n"
;
}