line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Net::GitHub::V3::OAuth; |
2
|
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
|
8
|
use Moo; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
7
|
|
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
our $VERSION = '1.02'; |
6
|
|
|
|
|
|
|
our $AUTHORITY = 'cpan:FAYLAND'; |
7
|
|
|
|
|
|
|
|
8
|
1
|
|
|
1
|
|
327
|
use URI::Escape; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
141
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
with 'Net::GitHub::V3::Query'; |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
## build methods on fly |
13
|
|
|
|
|
|
|
my %__methods = ( |
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
authorizations => { url => "/authorizations" }, |
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
get_authorization => { url => "/authorizations/%s" }, |
18
|
|
|
|
|
|
|
authorization => { url => "/authorizations/%s" }, |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
create_authorization => { url => "/authorizations", method => "POST", args => 1 }, |
21
|
|
|
|
|
|
|
update_authorization => { url => "/authorizations/%s", method => "PATCH", args => 1 }, |
22
|
|
|
|
|
|
|
delete_authorization => { url => "/authorizations/%s", method => "DELETE", check_status => 204 }, |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
); |
25
|
|
|
|
|
|
|
__build_methods(__PACKAGE__, %__methods); |
26
|
|
|
|
|
|
|
|
27
|
1
|
|
|
1
|
|
7
|
no Moo; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
5
|
|
28
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
1; |
30
|
|
|
|
|
|
|
__END__ |