gistfile1.pl

use warnings;

use Data::Dumper;
use DMEApiClient;
use App::Rad;
App::Rad->run();

my $client = DMEApiClient->new(
    base_url => 'http://api.dnsmadeeasy.com/V1.2/domains/ctsandbox.com'
);

sub setup {
    my $c = shift;
 
    $c->register_commands({
        add => 'Add an A record',
        remove => 'Remove an A record',
        list => 'Print records',
    });

    $c->load_config('dnsmeapi');
}

sub add {
    my $ip = shift;

    my $client = DMEApiClient->new(
        base_url => 'http://api.dnsmadeeasy.com/V1.2/domains/ctsandbox.com'
    );

    return $client->add_a_record($ip);
}

sub remove {
    my $id = shift;

    my $client = DMEApiClient->new(
        base_url => 'http://api.dnsmadeeasy.com/V1.2/domains/ctsandbox.com'
    );

    return $client->del_a_record($id);
}

sub list {
    my $client = DMEApiClient->new(
        base_url => 'http://api.dnsmadeeasy.com/V1.2/domains/ctsandbox.com'
    );

    my @records = $client->get_records();
    my @ips;
    for my $record (@records){
        print Dumper $record;
        if ($record->{name} eq '') { push @ips, $record->{data}; }
    }

    #return Dumper @ips
}