use
strict;
use
warnings;
use
Test::More;
package
test::host;
package
main;
my
$test
= test::host->new();
is
scalar
@{
$test
->host}, 1,
'got one host'
;
ok
my
$host
=
$test
->get_host,
'got host'
;
done_testing;
use
strict;
use
warnings;
use
Test::More;
package
test::host;
package
main;
my
$test
= test::host->new();
is
scalar
@{
$test
->host}, 1,
'got one host'
;
ok
my
$host
=
$test
->get_host,
'got host'
;
done_testing;