view release on metacpan or  search on metacpan

API/Intis/lib/API/Intis.pm  view on Meta::CPAN

63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
my $request_json; my $request_xml;
foreach my $format (@o_formats) {
    $config{return} = $format;
    my $signature = &build_signature(%config);
    my $url = "$config{host}$method.php?login=$config{login}&signature=$signature";
    while((my $key, my $value) = each %config){
        say "$key => $value\n";
        next if $key eq 'host' || $key eq 'login' || $key eq 'APIkey';
        $url .= "&$key=$value";
    };
    my $request = $ua->get("$url&return=$format")->decoded_content(charset => 'utf-8', raw => 1);
    $request_json = $request if $format eq 'json';
    $request_xml = $request if $format eq 'xml';
};
my $r = from_json($request_json);
my @error;
if ($r->{error}) {
    @error = &error_codes::get_name_from_code($r->{error});
} else {
    @error = &error_codes::get_name_from_code();
};