JROBINSON / Paws-0.46 / examples / trusted_advisor 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

              
#!/usr/bin/env perl
use v5.10;
use strict;
use warnings;
use Paws;
my $client = Paws->service('Support', region => 'us-east-1');
my $checks => $client->DescribeTrustedAdvisorChecks(Language => 'en');
foreach my $check (@{ $checks->Checks }) {
  say $check->Category . ' ' . $check->Name;
  my $res = $client->DescribeTrustedAdvisorCheckResult(CheckId => $check->Id);
  say $res->Result->Status;
}