view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

	use_ok( "Dyns::Client" );
}

my $dc = Dyns::Client->new();
ok($dc);

my $ip = $dc->get_ip('eth0');
ok($ip);

SKIP: {
	skip "No credentials provided", 1 unless $Username;
	ok(	$dc->update(
			-username 	=> $Username,
			-password 	=> $Password,
			-hostname 	=> $Host,
			-domain	 	=> $Domain,
			-ip		 	=> $ip 
			)
  	);
}