File Coverage

blib/lib/Akamai/Open/Client.pm
Criterion Covered Total %
statement 8 10 80.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 12 14 85.7


line stmt bran cond sub pod time code
1             package Akamai::Open::Client;
2             BEGIN {
3 4     4   85215 $Akamai::Open::Client::AUTHORITY = 'cpan:PROBST';
4             }
5             # ABSTRACT: The Akamai Open API Perl client structure for authentication data
6             $Akamai::Open::Client::VERSION = '0.03';
7 4     4   34 use strict;
  4         7  
  4         142  
8 4     4   20 use warnings;
  4         8  
  4         1216  
9              
10 4     4   2057 use Moose;
  0            
  0            
11             use Akamai::Open::Debug;
12              
13             has 'debug' => (is => 'rw', default => sub{ return(Akamai::Open::Debug->instance());});
14             has 'client_secret' => (is => 'rw', isa => 'Str', trigger => \&Akamai::Open::Debug::debugger);
15             has 'client_token' => (is => 'rw', isa => 'Str', trigger => \&Akamai::Open::Debug::debugger);
16             has 'access_token' => (is => 'rw', isa => 'Str', trigger => \&Akamai::Open::Debug::debugger);
17              
18             1;
19              
20             __END__
21              
22             =pod
23              
24             =encoding utf-8
25              
26             =head1 NAME
27              
28             Akamai::Open::Client - The Akamai Open API Perl client structure for authentication data
29              
30             =head1 VERSION
31              
32             version 0.03
33              
34             =head1 SYNOPSIS
35              
36             use Akamai::Open::Client;
37             use Akamai::Open::DiagnosticTools;
38              
39             my $client = Akamai::Open::Client->new();
40             $client->access_token('foobar');
41             $client->client_token('barfoo');
42             $client->client_secret('Zm9vYmFyYmFyZm9v');
43              
44             my $req = Akamai::Open::DiagnosticTools->new(client => $client);
45              
46             =head1 ABOUT
47              
48             I<Akamai::Open::Client> provides the data structure which holds the
49             client specific data which is needed for the authentication process
50             against the I<Akamai::Open> API.
51              
52             This data is provided by Akamai and can be found in your
53             L<LUNA control center account|https://control.akamai.com/>,
54             inside the I<Manage APIs> tool.
55              
56             =head1 AUTHOR
57              
58             Martin Probst <internet+cpan@megamaddin.org>
59              
60             =head1 COPYRIGHT AND LICENSE
61              
62             This software is copyright (c) 2014 by Martin Probst.
63              
64             This is free software; you can redistribute it and/or modify it under
65             the same terms as the Perl 5 programming language system itself.
66              
67             =cut