package Blitz::API;
use strict;
use warnings;
use LWP;
use Blitz;
use JSON;
use MIME::Base64;
=head1 NAME
Blitz::API - Perl module for API access to Blitz
=cut
=head1 SUBROUTINES/METHODS
=head2-API-Client' => 'Perl',
);
return $response;
}
=head2 _decode_response
Decodes the JSON result object from Blitz
Decodes base64 response in content areas of request and response
=cut
'server';
$return->{cause} = $response->code();
}
else {
$return = decode_json($response->{_content});
for my $key ('request', 'response') {
if ($return->{r
use strict;
use warnings;
use Blitz;
use Blitz::API;
use Blitz::Validate;
use MIME::Base64;
use JSON::XS;
use LWP;
use Storable qw(dclone);
=head1 NAME
Blitz::Exercise - Superclass for Sprint and package Blitz::API;
use strict;
use warnings;
use LWP;
use Blitz;
use JSON;
use MIME::Base64;
=head1 NAME
Blitz::API - Perl module for API access to Blitz
=cut
=head1 SUBROUTINES/METHODS
=head2-API-Client' => 'Perl',
);
return $response;
}
=head2 _decode_response
Decodes the JSON result object from Blitz
Decodes base64 response in content areas of request and response
=cut
'server';
$return->{cause} = $response->code();
}
else {
$return = decode_json($response->{_content});
for my $key ('request', 'response') {
if ($return->{r
use strict;
use warnings;
use Blitz;
use Blitz::API;
use Blitz::Validate;
use MIME::Base64;
use JSON::XS;
use LWP;
use Storable qw(dclone);
=head1 NAME
Blitz::Exercise - Superclass for Sprint and