Slide 56
Slide 56 text
Perl ଆͷ HTTPϦΫΤετૹ৴ capture
ݺͼग़͠ݩΛ͑ΔͨΊʹ X-Amzn-Trace-ID ϔομΛ༩
capture "externalHTTP", sub {
my $segment = shift;
$res = $self->client->post(
$self->endpoint . $p,
[
"Content-Type" => "application/json",
"Authorization" => "Bearer " . $self->app_id,
"X-Amzn-Trace-ID" => $segment->trace_header,
],
$body,
);
};