use Moo;
use System::Introspector::Util qw(
- handle_from_file
+ output_from_file
transform_exceptions
);
sub gather {
my ($self) = @_;
- return transform_exceptions {
- my $fh = $self->_open_resolv_conf_file;
- my @resolv;
- while (defined( my $line = <$fh> )) {
- chomp $line;
- next if $line =~ m{^\s*$}
- or $line =~ m{^\s*#};
- push @resolv, [split m{\s+}, $line];
- }
- return { resolv_conf => \@resolv };
+ return {
+ resolv_conf_file => transform_exceptions {
+ my $file = $self->resolv_conf_file;
+ return {
+ file_name => $file,
+ body => scalar output_from_file $file,
+ };
+ },
};
}
-sub _open_resolv_conf_file {
- my ($self) = @_;
- return handle_from_file $self->resolv_conf_file;
-}
-
1;
__END__