tagとるやつ

gistfile1.txt

sub _build_volume_name {
    my $self = shift;

    my $name_tag = $self->ec2->describe_tags(
        "Filter.Name"  => [ "resource-id",         "key"  ],
        "Filter.Value" => [ $self->ebs->volume_id, "Name" ]
    ) or croak "Target EBS requires 'Name' tag: ". $self->ebs->volume_id;

    return $name_tag->[0]->value;
}