File Coverage

blib/lib/System/Introspector/Probe/Puppet.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	28	29	96.5

package System::Introspector::Probe::Puppet;
use Moo;

use System::Introspector::Util qw(
    output_from_file
    transform_exceptions
);

has classes_file => (
    is      => 'ro',
    default => sub { '/var/lib/puppet/state/classes.txt' },
);

has resources_file => (
    is      => 'ro',
    default => sub { '/var/lib/puppet/state/resources.txt' },
);

sub gather {
    my ($self) = @_;
    return {
        classes     => $self->_gather_classes,
        resources   => $self->_gather_resources,
    };
}

sub _gather_resources {
    my ($self) = @_;
    return transform_exceptions {
        my @lines = output_from_file $self->resources_file;
        chomp @lines;
        return [ map {
            m{^(\w+)\[(.*)\]$}
                ? [$1, $2]
                : [__error__ => $_];
        } @lines ];
    };
}

sub _gather_classes {
    my ($self) = @_;
    return transform_exceptions {
        my @lines = output_from_file $self->classes_file;
        chomp @lines;
        return \@lines;
    };
}

1;

__END__