3 sub test_account_or_skip {
4 my($login, $password) = test_account();
6 unless( defined $login ) {
7 plan skip_all => "No test account";
10 return($login, $password);
14 open TEST_ACCOUNT, "t/test_account" or return;
15 my($login, $password, $hostport) = <TEST_ACCOUNT>;
20 if ( $hostport =~ /^\s*([\w\.]+)(:(\d+))?\s*$/ ) {
21 my($host, $port) = ($1, $3);
22 $Net::VoIP_Innovations::HOST = $host;
23 $Net::VoIP_Innovations::PORT = $port;
26 return($login, $password);