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
|
#!perl
use warnings;
use strict;
use lib 'lib';
use Test::More;
use Test::Exception;
unless ( $ENV{'AWS_ACCESS_KEY_ID'} and
$ENV{'AWS_ACCESS_KEY_SECRET'} and
$ENV{'AWS_ACCESS_TOKEN'} ) {
plan skip_all =>
'Need these vars in ENV: AWS_ACCESS_KEY_ID, ' .
'AWS_ACCESS_KEY_SECRET, AWS_ACCESS_TOKEN';
} else {
plan tests => 1 + 1;
}
use_ok('Net::Amazon::S3');
my $aws_access_key_id = $ENV{'AWS_ACCESS_KEY_ID'};
my $aws_secret_access_key = $ENV{'AWS_ACCESS_KEY_SECRET'};
my $aws_session_token = $ENV{'AWS_ACCESS_TOKEN'};
my $s3 = Net::Amazon::S3->new(
{ aws_access_key_id => $aws_access_key_id,
aws_secret_access_key => $aws_secret_access_key,
aws_session_token => $aws_session_token,
retry => 1,
}
);
# list all buckets that i own
my $response = $s3->buckets;
ok($response, "Authentication with token succeded");
|
