Yet Another CPAN Grep

System-Introspector ( P/PH/PHAYLON/System-Introspector-0.001_001.tar.gz, PHAYLON, 2012; MetaCPAN )

System-Introspector/lib/System/Introspector.pm ( view source; MetaCPAN )

t of probes
on the remote system that gather specific information. Gathered results
are stored in JSON format.

=head1 AUTHOR

 phaylon - Robert Sedlacek (cpan:PHAYLON) <r.sedlacek@shadowcat.co.uk>

=

System-Introspector ( P/PH/PHAYLON/System-Introspector-0.001_001.tar.gz, PHAYLON, 2012; MetaCPAN )

System-Introspector/lib/System/Introspector/State.pm ( view source; MetaCPAN )

use System::Introspector::Gatherer;
use Object::Remote::Future qw( await_all );

use JSON::Diffable qw( encode_json );

has config => (is => 'ro', required => 1);

has root => (is => 'ro', required =>

     my @files;
        for my $class (sort keys %$gathered) {
            my $file = sprintf '%s.json', join '/',
                map lc, map {
                    s{([a-z0-9])([A-Z])}{${1}_${2}}g;

storage->file($file);
            $self->_log("Writing $full_path");
            print $fh encode_json($gathered->{$class});
            push @files, $full_path;
        }
        $self->_cleanup($sto