my ($self) = @_;
my $instances = $self->ec2->describe_instances;
my $table = Text::SimpleTable->new(
$col_widths_headings->{tags},
$col_widths_headings->{instance_id},
$col_widths_headings->{ip_address},
$col_widths_headings->{dns_name},
$col_widths_headings->{instance_type},
$col_widths_headings->{launch_time},
$col_widths_headings->{image_state},
$col_widths_headings->{image_id}
);
foreach my $instance (@$instances) {
# print dump $instance->instances_set;
my $instance_set = $instance->instances_set->[0];
$instance_set->{launch_time} =~ s/:\d+\.000Z$
#die dump $instance_set;
$table->row(
$instance_set->{tags} || '',
$instance_set->{instance_id},
$instance_set->{ip_address} || '',
$instance_set->{dns_name} || '',
$instance_set->{instance_type},
$instance_set->{launch_time},
$instance_set->{instance_state}->name,
$instance_set->{image_id},
);
}
return $table->draw;
}