Wikibase::Datatype::Struct::Mediainfo - Wikibase mediainfo structure serialization.
use Wikibase::Datatype::Struct::Mediainfo qw(obj2struct struct2obj); my $struct_hr = obj2struct($obj, $base_uri); my $obj = struct2obj($struct_hr);
This conversion is between objects defined in Wikibase::Datatype and structures serialized via JSON to MediaWiki.
obj2struct
my $struct_hr = obj2struct($obj, $base_uri);
Convert Wikibase::Datatype::Mediainfo instance to structure. $base_uri is base URI of Wikibase system (e.g. http://test.wikidata.org/entity/).
$base_uri
Returns reference to hash with structure.
struct2obj
my $obj = struct2obj($struct_hr);
Convert structure of mediainfo to object.
Returns Wikibase::Datatype::Mediainfo instance.
obj2struct(): Base URI is required. Object doesn't exist. Object isn't 'Wikibase::Datatype::Mediainfo'. struct2obj(): Structure isn't for 'mediainfo' type.
use strict; use warnings; use Data::Printer; use Wikibase::Datatype::Mediainfo; use Wikibase::Datatype::MediainfoSnak; use Wikibase::Datatype::MediainfoStatement; use Wikibase::Datatype::Struct::Mediainfo qw(obj2struct); use Wikibase::Datatype::Value::Item; use Wikibase::Datatype::Value::Monolingual; # Object. my $statement1 = Wikibase::Datatype::MediainfoStatement->new( # instance of (P31) human (Q5) 'snak' => Wikibase::Datatype::MediainfoSnak->new( 'datavalue' => Wikibase::Datatype::Value::Item->new( 'value' => 'Q5', ), 'property' => 'P31', ), 'property_snaks' => [ # of (P642) alien (Q474741) Wikibase::Datatype::MediainfoSnak->new( 'datavalue' => Wikibase::Datatype::Value::Item->new( 'value' => 'Q474741', ), 'property' => 'P642', ), ], ); my $statement2 = Wikibase::Datatype::MediainfoStatement->new( # sex or gender (P21) male (Q6581097) 'snak' => Wikibase::Datatype::MediainfoSnak->new( 'datavalue' => Wikibase::Datatype::Value::Item->new( 'value' => 'Q6581097', ), 'property' => 'P21', ), ); # Main item. my $obj = Wikibase::Datatype::Mediainfo->new( 'id' => 'Q42', 'labels' => [ Wikibase::Datatype::Value::Monolingual->new( 'language' => 'cs', 'value' => 'Douglas Adams', ), Wikibase::Datatype::Value::Monolingual->new( 'language' => 'en', 'value' => 'Douglas Adams', ), ], 'page_id' => 123, 'statements' => [ $statement1, $statement2, ], 'title' => 'Q42', ); # Get structure. my $struct_hr = obj2struct($obj, 'http://test.wikidata.org/entity/'); # Dump to output. p $struct_hr; # Output: # TODO
use strict; use warnings; use Data::Printer; use Wikibase::Datatype::Struct::Mediainfo qw(struct2obj); # Item structure. my $struct_hr = { # TODO }; # Get object. my $obj = struct2obj($struct_hr); # Print out. p $obj; # Output: # TODO
Error::Pure, Exporter, Readonly, Wikibase::Datatype::Mediainfo, Wikibase::Datatype::Struct::Language, Wikibase::Datatype::Struct::MediainfoStatement.
Wikibase structure serialization.
Wikibase mediainfo datatype.
https://github.com/michal-josef-spacek/Wikibase-Datatype-Struct
Michal Josef Špaček mailto:skim@cpan.org
http://skim.cz
© Michal Josef Špaček 2020-2021
BSD 2-Clause License
0.07
To install Wikibase::Datatype::Struct, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Wikibase::Datatype::Struct
CPAN shell
perl -MCPAN -e shell install Wikibase::Datatype::Struct
For more information on module installation, please visit the detailed CPAN module installation guide.