CPAN::Groonga

use strict;
use warnings;

use Class::Utils qw(set_params);
use Error::Pure qw(err);
use JSON::XS qw(encode_json);
use MediaWiki::API;
use Unicode::UTF8 qw(decode_utf8 encode_utf8);
use Wikibase::Data

e_item {
	my ($self, $item_obj, $summary) = @_;

	$self->_init;

	my ($type, $data) = $self->_obj2json($item_obj);
	my $res = $self->{'mediawiki_api'}->api({
		'action' => 'wbeditentity',
		'new' => $

s napr.

	my $res = $self->{'mediawiki_api'}->api({
		'action' => 'wbgetentities',
		'format' => 'json',
		'ids' => $id,
	});
	$self->_mediawiki_api_error($res, 'Cannot get item.');

	my $struct_hr = 

 qw(set_params);
use File::Spec::Functions qw(catfile);
use IO::Barf qw(barf);
use JSON::XS qw(decode_json encode_json);
use Perl6::Slurp qw(slurp);
use Readonly;
use Wikibase::API;

Readonly::Array o

id_file) {
		$struct_hr = decode_json(slurp($qid_file));
	} else {
		$self->_lazy_api;
		$struct_hr = $self->{'api'}->get_item_raw($qid);
		barf($qid_file, encode_json($struct_hr));
	}

	my $item_obj