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
|
package # hide from PAUSE
Pithub::Test::UA;
use Moo;
use Path::Tiny qw( path );
use HTTP::Response ();
my @responses;
sub add_response {
my ( $self, $path ) = @_;
my $full_path = sprintf '%s/http_response/api.github.com/%s',
path(__FILE__)->dirname, $path;
my $response_string = path($full_path)->slurp;
my $response = HTTP::Response->parse($response_string);
push @responses, $response;
}
sub request {
my ( $self, $request ) = @_;
my $result = HTTP::Response->new;
if ( my $response = shift(@responses) ) {
$result = $response;
}
$result->request($request);
return $result;
}
1;
|
