CPAN::Groonga

VKontakte::Standalone;

use 5.006000;
use strict;
use warnings;

use URI;
use WWW::Mechanize;
use JSON;
use Carp;

our $VERSION = '0.18_95';

sub import {
	my $class = shift;
	return unless @_;
	my %o

= "password";
	$params{client_id} = $self->{api_id};
	REDO: { # for CAPTCHA
		my $result = decode_json $self->_request(\%params, "https://oauth.vk.com/token")->decoded_content;
		if ($result->{access_

cope"});
	}
	$params->{access_token} = $self->{access_token};
	REQUEST: {
		my $response = decode_json $self->_request($params,"https://api.vk.com/method/$method")->decoded_content;
		if ($response->{