|
23
|
0 |
2 |
0 |
$METADATA ||= do {
my $ua = 'HTTP::Tiny'->new('timeout', 1);
my $token = do {
my $res = $ua->request('PUT', "$_base_url/api/token", {'headers', {'X-aws-ec2-metadata-token-ttl-seconds', '60'}});
$res->{'success'} ? $res->{'content'} : ''
};
my $opt = {};
if ($token ne '') {
$opt->{'headers'}{'X-aws-ec2-metadata-token'} = $token;
} ;
my $instance_id = do {
my $res = $ua->get(&ID_ADDR(), $opt);
$res->{'success'} ? $res->{'content'} : ''
};
my $az = do {
my $res = $ua->get(&AZ_ADDR(), $opt);
$res->{'success'} ? $res->{'content'} : ''
};
+{'instance_id', $instance_id, 'availability_zone', $az}
} |