File Coverage

blib/lib/WWW/TypePad/AuthTokens.pm
Criterion Covered Total %
statement 15 21 71.4
branch n/a
condition n/a
subroutine 5 7 71.4
pod 1 2 50.0
total 21 30 70.0


line stmt bran cond sub pod time code
1             package WWW::TypePad::AuthTokens;
2              
3 1     1   7 use strict;
  1         2  
  1         43  
4 1     1   7 use warnings;
  1         1  
  1         65  
5              
6             # Install an accessor into WWW::TypePad to access an instance of this class
7             # bound to the WWW::TypePad instance.
8 0     0 0   sub WWW::TypePad::auth_tokens { __PACKAGE__->new( base => $_[0] ) }
9              
10             ### BEGIN auto-generated
11             ### This is an automatically generated code, do not edit!
12             ### Scroll down to look for END to add additional methods
13              
14             =pod
15              
16             =head1 NAME
17              
18             WWW::TypePad::AuthTokens - AuthTokens API methods
19              
20             =head1 METHODS
21              
22             =cut
23              
24 1     1   5 use strict;
  1         1  
  1         24  
25 1     1   4 use Any::Moose;
  1         2  
  1         9  
26             extends 'WWW::TypePad::Noun';
27              
28 1     1   980 use Carp ();
  1         3  
  1         103  
29              
30              
31             =pod
32              
33             =over 4
34              
35              
36             =item get
37              
38             my $res = $tp->auth_tokens->get($id);
39              
40             Get basic information about the selected auth token, including what object it grants access to.
41              
42             Returns AuthToken which contains following properties.
43              
44             =over 8
45              
46             =item authToken
47              
48             (string) The actual auth token string. Use this as the access token when making an OAuth request.
49              
50             =item targetObject
51              
52             (Base) BEDeprecatedE The root object to which this auth token grants access. This is a legacy field maintained for backwards compatibility with older clients, as auth tokens are no longer scoped to specific objects.
53              
54              
55             =back
56              
57             =cut
58              
59             sub get {
60 0     0 1   my $api = shift;
61 0           my @args;
62 0           push @args, shift; # id
63 0           my $uri = sprintf '/auth-tokens/%s.json', @args;
64 0           $api->base->call("GET", $uri, @_);
65             }
66              
67              
68             =pod
69              
70             =back
71              
72             =cut
73              
74             ### END auto-generated
75              
76             1;