File Coverage

blib/lib/Net/Amazon/EC2/Metadata.pm

Criterion	Covered	Total	%
statement	21	50	42.0
branch	0	8	0.0
condition			n/a
subroutine	7	14	50.0
pod	6	6	100.0
total	34	78	43.5

package Net::Amazon::EC2::Metadata;

use vars qw/$VERSION/; $VERSION='0.10';
use warnings;
use strict;
use Carp;

use LWP::Simple;
# http://developer.amazonwebservices.com/connect/entry.jspa?externalID=1085&categoryID=100

#Docs
#http://docs.amazonwebservices.com/AWSEC2/2007-08-29/DeveloperGuide/AESDG-chapter-instancedata.html


### Metadata
# ami-id	The AMI ID used to launch the instance.	1.0
# ami-manifest-path	The manifest path of the AMI with which the instance was launched.	1.0
# ami-launch-index	The index of this instance in the reservation (per AMI).	1.0
# ancestor-ami-ids	The AMI IDs of any instances that were rebundled to create this AMI.	2007-10-10
# instance-id	The ID of this instance.	1.0
# instance-type	The type of instance to launch. For more information, see Selecting Instance Types.	2007-08-29
# local-hostname	The local hostname of the instance.	2007-01-19
# public-hostname	The public hostname of the instance.	2007-01-19
# local-ipv4	Public IP address if launched with direct addressing; private IP address if launched with public addressing.	1.0
# public-ipv4	NATted public IP Address	2007-01-19
# public-keys/	Public keys. Only available if supplied at instance launch time	1.0
# reservation-id	ID of the reservation.	1.0
# security-groups	Names of the security groups the instance is launched in. Only available if supplied at instance launch time	1.0
# product-codes	 Product codes associated with this instance.	2007-03-01




my $data = {};
my $baseurl='http://169.254.169.254/latest/';
my $metaurl=$baseurl."meta-data/";
my $userurl=$baseurl."user-data/";

my @data = qw(ami_id ami_manifest_path ami_launch_index
                  ancestor_ami_ids instance_id  instance_type
                  local_hostname public_hostname
                  local_ipv4 public_ipv4
                  reservation_id
                  security_groups
                  product_codes
               );





for my $item (@data)  {
    no strict 'refs';
    *{"$item"} = sub {
        return $data->{$item}  if $data->{$item};
        my $path = $item;
        $path =~ s/_/-/;
        $data->{$item} = get($metaurl.$path);
        return $data->{$item};
    }
}


sub new{
    my $class = shift;
    return bless {}, $class;
}



# returns a hash of all the data
#
sub available_data{
    return [@data, 'user_data', 'public_keys'];
}

sub all_data{
    my $data={};
    for  (@data, 'user_data', 'public_keys' )      {
        no strict 'refs';
        $data->{$_}= $_->();
    }
    return $data;
}



sub public_keys{
    my $self = shift;
    my $key  = shift;
    my $item = 'public_keys';
    my $path = $item;
    $path =~ s/_/-/;
    if ($key)     {
        $path .=  "/$key";
        $item .=  "/$key";
    }
    return $data->{$item}  if $data->{$item} ;
    $data->{$item} = get($metaurl.$path);
    return $data->{$item};
}

sub public_key{
    public_keys(@_);
}


sub user_data{
    my $item = '__userdata';
    return $data->{$item}  if $data->{$item};
    my $path = $item;
    $data->{$item} = get($userurl);
    return $data->{$item};
}












1;

 # Magic true value required at end of module




__END__