Wikibase::Datatype::Sense - Wikibase sense datatype.
use Wikibase::Datatype::Sense; my $obj = Wikibase::Datatype::Sense->new(%params); my $glosses_ar = $obj->glosses; my $id = $obj->id; my $statements_ar = $obj->statements;
This datatype is snak class for representing relation between property and value.
new
my $obj = Wikibase::Datatype::Snak->new(%params);
Constructor.
Retruns instance of object.
glosses
Item glosses. One per language. Reference to array with Wikibase::Datatype::Value::Monolingual instances. Parameter is optional.
id
Id. Parameter is optional.
statements
Item statements. Reference to array with Wikibase::Datatype::Statement instances. Parameter is optional.
my $glosses_ar = $obj->glosses;
Get glosses.
Returns reference to array with Wikibase::Datatype::Value::Monolingual instances.
my $id = $obj->id;
Get id.
Returns string.
my $statements_ar = $obj->statements;
Get statements.
Returns reference to array with Wikibase::Datatype::Statement instances.
new(): From Mo::utils::check_array_object(): Glosse isn't 'Wikibase::Datatype::Value::Monolingual' object. Parameter 'glosses' must be a array. Parameter 'statements' must be a array. Statement isn't 'Wikibase::Datatype::Statement' object. From Mo::utils::check_number_of_items(): Glosse for language '%s' has multiple values.
use strict; use warnings; use Wikibase::Datatype::Sense; use Wikibase::Datatype::Snak; use Wikibase::Datatype::Statement; use Wikibase::Datatype::Value::Item; use Wikibase::Datatype::Value::Monolingual; # Statement. my $statement = Wikibase::Datatype::Statement->new( # instance of (P31) human (Q5) 'snak' => Wikibase::Datatype::Snak->new( 'datatype' => 'wikibase-item', 'datavalue' => Wikibase::Datatype::Value::Item->new( 'value' => 'Q5', ), 'property' => 'P31', ), ); # Object. my $obj = Wikibase::Datatype::Sense->new( 'glosses' => [ Wikibase::Datatype::Value::Monolingual->new( 'language' => 'en', 'value' => 'Glosse en', ), Wikibase::Datatype::Value::Monolingual->new( 'language' => 'cs', 'value' => 'Glosse cs', ), ], 'id' => 'ID', 'statements' => [ $statement, ], ); # Get id. my $id = $obj->id; # Get glosses. my @glosses = map { $_->value.' ('.$_->language.')' } @{$obj->glosses}; # Get statements. my $statements_count = @{$obj->statements}; # Print out. print "Id: $id\n"; print "Glosses:\n"; map { print "\t$_\n"; } @glosses; print "Number of statements: $statements_count\n"; # Output: # Id: ID # Glosses: # Glosse en (en) # Glosse cs (cs) # Number of statements: 1
Mo, Mo::utils.
Wikibase datatypes.
https://github.com/michal-josef-spacek/Wikibase-Datatype
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, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Wikibase::Datatype
CPAN shell
perl -MCPAN -e shell install Wikibase::Datatype
For more information on module installation, please visit the detailed CPAN module installation guide.