1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Net::GitHub::V4;
plan skip_all => 'Please export environment variable GITHUB_ACCESS_TOKEN' unless $ENV{GITHUB_ACCESS_TOKEN};
my $gh = Net::GitHub::V4->new(
access_token => $ENV{GITHUB_ACCESS_TOKEN}
);
my $data = $gh->query(<<IQL);
query {
repository(owner: "octocat", name: "Hello-World") {
pullRequests(last: 10) {
edges {
node {
number
mergeable
}
}
}
}
}
IQL
use Data::Dumper;
diag Dumper(\$data);
ok($data->{data}->{repository}->{pullRequests});
# $data = $gh->query(<<IQL);
# mutation AddCommentToIssue {
# addComment(input:{subjectId:"MDU6SXNzdWUyMzA0ODQ2Mjg=", body:"A shiny new comment! :tada:"}) {
# commentEdge {
# cursor
# }
# subject {
# id
# }
# timelineEdge {
# cursor
# }
# }
# }
# IQL
# diag Dumper(\$data);
$data = $gh->query(<<'IQL', { number_of_repos => 3 });
query($number_of_repos:Int!) {
viewer {
name
repositories(last: $number_of_repos) {
nodes {
name
}
}
}
}
IQL
diag Dumper(\$data);
done_testing;
|
