5 use System::Introspector::Probe::Hosts;
7 my $probe = System::Introspector::Probe::Hosts->new(
8 hosts_file => "$FindBin::Bin/data/hosts",
11 my $result = $probe->gather;
12 ok $result, 'received data';
13 my $data = $result->{hosts};
14 ok $data, 'received hosts data';
17 [['1.2.3.4', qw( foo bar )], ['2.3.4.5', 'bar']],