API-CPanel
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/01-test.t view on Meta::CPAN
BEGIN {
#$ENV{auth_user} = 'restest';
#$ENV{auth_passwd} = '123';
#$ENV{host} = '192.168.123.1';
$ONLINE = $ENV{auth_user} && $ENV{auth_passwd} && $ENV{host};
}
my $manipulate_user = 'zsezse';
use Test::More tests => $ONLINE ? 61 : 61;
my $test_host = $ENV{host} || '127.0.0.1';
ok(1, 'Test OK');
use_ok('API::CPanel');
$a = 'refs';
is( refs( undef ), '', $a);
is( refs( {} ), 'HASH', $a );
is( refs( [] ), 'ARRAY', $a );
is( refs( sub {} ), 'CODE', $a );
is( refs( \$a ), 'SCALAR', $a );
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.566 second using v1.00-cache-2.02-grep-82fe00e-cpan-585fae043c8 )