package VK::App;
use strict;
use warnings;
use LWP;
use LWP::Protocol::https;
use JSON;
our $VERSION = 0.12;
sub new {
my ($class, %args) = @_;
die "USAGE:\nVK::App->new(api_id => .
rn $content if ($self->{format} eq "XML");
return $content if ($self->{format} eq "JSON");
return decode_json($content);
}
1;
__END__
#################### DOCUMENTATION ###############
l,groups,messages,offline',
# Data format that will receive as a result of requests 'JSON', 'XML' or 'Perl'.
# Perl object by default.
format => 'Perl',
);