NAME
Wikibase::Datatype::Print::MediainfoStatement - Wikibase mediainfo statement pretty print helpers.
SYNOPSIS
my
$pretty_print_string
=
(
$obj
,
$opts_hr
);
SUBROUTINES
print
my
$pretty_print_string
=
(
$obj
,
$opts_hr
);
Construct pretty print output for Wikibase::Datatype::MediainfoStatement object.
Returns string.
ERRORS
():
Object isn
't '
Wikibase::Datatype::MediainfoStatement'.
EXAMPLE1
use
strict;
use
warnings;
# Object.
my
$obj
= Wikibase::Datatype::MediainfoStatement->new(
'id'
=>
'M123$00C04D2A-49AF-40C2-9930-C551916887E8'
,
# creator (P170)
'snak'
=> Wikibase::Datatype::MediainfoSnak->new(
'property'
=>
'P170'
,
'snaktype'
=>
'novalue'
,
),
'property_snaks'
=> [
# Wikimedia username (P4174): Lviatour
Wikibase::Datatype::MediainfoSnak->new(
'datavalue'
=> Wikibase::Datatype::Value::String->new(
'value'
=>
'Lviatour'
,
),
'property'
=>
'P4174'
,
),
# URL (P2699): https://commons.wikimedia.org/wiki/user:Lviatour
Wikibase::Datatype::MediainfoSnak->new(
'datavalue'
=> Wikibase::Datatype::Value::String->new(
),
'property'
=>
'P2699'
,
),
# author name string (P2093): Lviatour
Wikibase::Datatype::MediainfoSnak->new(
'datavalue'
=> Wikibase::Datatype::Value::String->new(
'value'
=>
'Lviatour'
,
),
'property'
=>
'P2093'
,
),
# object has role (P3831): photographer (Q33231)
Wikibase::Datatype::MediainfoSnak->new(
'datavalue'
=> Wikibase::Datatype::Value::Item->new(
'value'
=>
'Q33231'
,
),
'property'
=>
'P3831'
,
),
],
);
# Print.
Wikibase::Datatype::Print::MediainfoStatement::
(
$obj
).
"\n"
;
# Output:
# P170: no value (normal)
# P4174: Lviatour
# P2093: Lviatour
# P3831: Q33231
EXAMPLE2
use
strict;
use
warnings;
use
Wikibase::Cache;
# Object.
my
$obj
= Wikibase::Datatype::MediainfoStatement->new(
'id'
=>
'M123$00C04D2A-49AF-40C2-9930-C551916887E8'
,
# creator (P170)
'snak'
=> Wikibase::Datatype::MediainfoSnak->new(
'property'
=>
'P170'
,
'snaktype'
=>
'novalue'
,
),
'property_snaks'
=> [
# Wikimedia username (P4174): Lviatour
Wikibase::Datatype::MediainfoSnak->new(
'datavalue'
=> Wikibase::Datatype::Value::String->new(
'value'
=>
'Lviatour'
,
),
'property'
=>
'P4174'
,
),
# URL (P2699): https://commons.wikimedia.org/wiki/user:Lviatour
Wikibase::Datatype::MediainfoSnak->new(
'datavalue'
=> Wikibase::Datatype::Value::String->new(
),
'property'
=>
'P2699'
,
),
# author name string (P2093): Lviatour
Wikibase::Datatype::MediainfoSnak->new(
'datavalue'
=> Wikibase::Datatype::Value::String->new(
'value'
=>
'Lviatour'
,
),
'property'
=>
'P2093'
,
),
# object has role (P3831): photographer (Q33231)
Wikibase::Datatype::MediainfoSnak->new(
'datavalue'
=> Wikibase::Datatype::Value::Item->new(
'value'
=>
'Q33231'
,
),
'property'
=>
'P3831'
,
),
],
);
# Cache.
my
$cache
= Wikibase::Cache->new(
'backend'
=>
'Basic'
,
);
# Print.
Wikibase::Datatype::Print::MediainfoStatement::
(
$obj
, {
'cache'
=>
$cache
,
}).
"\n"
;
# Output:
# P170: no value (normal)
# P4174: Lviatour
# P2093: Lviatour
# P3831: Q33231
DEPENDENCIES
Error::Pure, Exporter, Readonly, Wikibase::Datatype::Print::Reference, Wikibase::Datatype::Print::MediainfoSnak, Wikibase::Datatype::Print::Utils.
SEE ALSO
- Wikibase::Datatype::MediainfoStatement
-
Wikibase statement datatype.
REPOSITORY
https://github.com/michal-josef-spacek/Wikibase-Datatype-Print
AUTHOR
Michal Josef Špaček mailto:skim@cpan.org
LICENSE AND COPYRIGHT
© 2020-2023 Michal Josef Špaček
BSD 2-Clause License
VERSION
0.09