lib/System/Introspector/ResolvConf.pm

   1 package System::Introspector::ResolvConf;
   2 use Moo;
   3
   4 has resolv_conf_file => (
   5     is      => 'ro',
   6     default => sub { '/etc/resolv.conf' },
   7 );
   8
   9 sub gather {
  10     my ($self) = @_;
  11     my $fh = $self->_open_resolv_conf_file;
  12     my @resolv;
  13     while (defined( my $line = <$fh> )) {
  14         chomp $line;
  15         next if $line =~ m{^\s*$}
  16              or $line =~ m{^\s*#};
  17         push @resolv, [split m{\s+}, $line];
  18     }
  19     return \@resolv;
  20 }
  21
  22 sub _open_resolv_conf_file {
  23     my ($self) = @_;
  24     my $file = $self->resolv_conf_file;
  25     open my $fh, '<', $file
  26         or die "Unable to read $file: $!";
  27     return $fh;
  28 }
  29
  30 1;