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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
package Pithub::Repos::Actions::Workflows;
our $AUTHORITY = 'cpan:PLU';
# ABSTRACT: Github v3 Repo Actions Workflows API
use Moo;
our $VERSION = '0.01043';
use Carp qw( croak );
extends 'Pithub::Base';
sub get {
my ( $self, %args ) = @_;
my $param_name = 'workflow_id';
my $id = delete $args{$param_name};
croak 'Missing key in parameters: ' . $param_name unless $id;
$self->_validate_user_repo_args( \%args );
return $self->request(
method => 'GET',
path => sprintf(
'/repos/%s/%s/actions/workflows/%s', delete $args{user},
delete $args{repo}, $id,
),
%args,
);
}
sub list {
my ( $self, %args ) = @_;
$self->_validate_user_repo_args( \%args );
return $self->request(
method => 'GET',
path => sprintf(
'/repos/%s/%s/actions/workflows', delete $args{user},
delete $args{repo}
),
%args,
);
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Pithub::Repos::Actions::Workflows - Github v3 Repo Actions Workflows API
=head1 VERSION
version 0.01043
=head1 DESCRIPTION
This class is incomplete. It's currently missing support for C<dispatches>,
C<enable> and C<timing>. Please send patches for any additional functionality
you may require.
=head1 METHODS
=head2 get
=over
=item *
Get a single workflow.
GET /repos/:owner/:repo/actions/workflows/:id
Examples:
my $a = Pithub::Repos::Actions::Workflows->new;
my $result = $a->get(
repo => 'graylog2-server',
user => 'Graylog2',
workflow_id => 81148,
);
=back
=head2 list
=over
=item *
List workflows for a repo.
GET /repos/:owner/:repo/actions/workflows
Examples:
my $a = Pithub::Repos::Actions::Workflows->new;
my $result = $a->list(
repo => 'graylog2-server',
user => 'Graylog2',
);
=back
=head1 AUTHOR
Johannes Plunien <plu@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2011 by Johannes Plunien.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|
