5 use System::Introspector::ResolvConf;
7 my $probe = System::Introspector::ResolvConf->new(
8 resolv_conf_file => "$FindBin::Bin/data/resolv.conf",
10 my $result = $probe->gather;
11 ok $result, 'received data';
12 my $data = $result->{resolv_conf};
13 ok $data, 'received resolv.conf data';
18 [qw( nameserver baz )],
19 [qw( nameserver qux )]],