The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

BLUEFEET / GitLab-API-v4-0.27 / lib / GitLab / API / v4 / Mock / RESTClient.pm 

            

              
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
121
—
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
—
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
—
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
—
172
173
174
175
176
177
178
179
180
181
182
183
184
185

              
package GitLab::API::v4::Mock::RESTClient;
our $VERSION = '0.27';
=encoding utf8
=head1 NAME
GitLab::API::v4::Mock::RESTClient - Mocked REST client that doesn't actually make HTTP requests.
=head1 DESCRIPTION
This module is a subclass of L<GitLab::API::v4::RESTClient>.  It
modifies it to divert HTTP requests to
L<GitLab::API::v4::Mock::Engine> rather than making live requests.
This module is used by L<GitLab::API::v4::Mock>.
=cut
use GitLab::API::v4::Mock::Engine;
use JSON::MaybeXS;
use URI;
use Moo;
use strictures 2;
use namespace::clean;
extends 'GitLab::API::v4::RESTClient';
my @ENDPOINTS;
sub has_endpoint {
    my ($method, $path_re, $sub) = @_;
    push @ENDPOINTS, [
        $method, $path_re, $sub,
    ];
    return;
}
sub _http_tiny_request {
    my ($self, $req_method, $req) = @_;
    die "req_method may only be 'request' at this time"
        if $req_method ne 'request';
    my ($http_method, $url, $options) = @$req;
    my $path = URI->new( $url )->path();
    $path =~ s{^.*api/v4/}{};
    foreach my $endpoint (@ENDPOINTS) {
        my ($endpoint_method, $path_re, $sub) = @$endpoint;
        next if $endpoint_method ne $http_method;
        next if $path !~ $path_re;
        my @captures = ($path =~ $path_re);
        my ($status, $content) = $sub->(
            $self,
            [$http_method, $url, $options],
            @captures,
        );
        $content = encode_json( $content ) if ref $content;
        return {
            status => $status,
            success => ($status =~ m{^2\d\d$}) ? 1 : 0,
            defined( $content ) ? (content=>$content) : (),
        };
    }
    die "No endpoint matched the $http_method '$path' endpoint";
}
=head1 ATTRIBUTES
=head2 engine
The L<GitLab::API::v4::Mock::Engine> used behind the hood.
=cut
has engine => (
    is       => 'lazy',
    init_arg => undef,
);
sub _build_engine {
    return GitLab::API::v4::Mock::Engine->new();
}
=head1 USER ENDPOINTS
=head2 GET users
Handles L<GitLab::API::v4/users>.
=cut
has_endpoint GET => qr{^users$}, sub{
    my ($self) = @_;
    return 200, $self->engine->users();
};
=head2 GET user/:id
Handles L<GitLab::API::v4/user>.
=cut
has_endpoint GET => qr{^users/(\d+)$}, sub{
    my ($self, $req, $id) = @_;
    my $user = $self->engine->user( $id );
    return 404 if !$user;
    return 200, $user;
};
=head2 POST users
Handles L<GitLab::API::v4/create_user>.
=cut
has_endpoint POST => qr{^users$}, sub{
    my ($self, $req) = @_;
    my $user = decode_json( $req->[2]->{content} );
    $self->engine->create_user( $user );
    return 204;
};
=head2 PUT user/:id
Handles L<GitLab::API::v4/edit_user>.
=cut
has_endpoint PUT => qr{^users/(\d+)$}, sub{
    my ($self, $req, $id) = @_;
    my $data = decode_json( $req->[2]->{content} );
    my $user = $self->engine->update_user( $id, $data );
    return 404 if !$user;
    return 204;
};
=head2 DELETE user/:id
Handles L<GitLab::API::v4/delete_user>.
=cut
has_endpoint DELETE => qr{^users/(\d+)$}, sub{
    my ($self, $req, $id) = @_;
    my $user = $self->engine->delete_user( $id );
    return 404 if !$user;
    return 204;
};
1;
__END__
=head1 SUPPORT
See L<GitLab::API::v4/SUPPORT>.
=head1 AUTHORS
See L<GitLab::API::v4/AUTHORS>.
=head1 LICENSE
See L<GitLab::API::v4/LICENSE>.
=cut