view release on metacpan or  search on metacpan

lib/Akamai/Open/Client.pm  view on Meta::CPAN

 my $client = Akamai::Open::Client->new();
 $client->access_token('foobar');
 $client->client_token('barfoo');
 $client->client_secret('Zm9vYmFyYmFyZm9v');

 my $req = Akamai::Open::DiagnosticTools->new(client => $client);

=head1 ABOUT

I<Akamai::Open::Client> provides the data structure which holds the 
client specific data which is needed for the authentication process 
against the I<Akamai::Open> API.

This data is provided by Akamai and can be found in your 
L<LUNA control center account|https://control.akamai.com/>, 
inside the I<Manage APIs> tool.

=head1 AUTHOR

Martin Probst <internet+cpan@megamaddin.org>

t/0007-signedrequest-extended.t  view on Meta::CPAN

    }

    my $auth_header = eval {
        $req->sign_request;
        return($req->request->headers->header('authorization'));
    };

    if ($@) {
        my $msg = $@;
        chomp($msg);
        note("The signing process died: $msg");
        is($msg, $testcase->{'failsWithMessage'}, $testcase->{testName});
        return;
    }

    is($auth_header, $testcase->{expectedAuthorization}, $testcase->{testName})
}

my $testdata = load_testdata;
my $numtests = scalar @{$testdata->{tests}};