Yet Another CPAN Grep

Test-BDD-Infrastructure ( B/BE/BENNING/Test-BDD-Infrastructure-1.005.tar.gz, BENNING, 2016; MetaCPAN )

Test-BDD-Infrastructure/lib/Test/BDD/Infrastructure/Config/Facter.pm ( view source; MetaCPAN )

:Infrastructure::Config::Hash';

use IPC::Run;
use JSON;

has 'command' => ( is => 'ro', isa => 'ArrayRef[Str]',
	default => sub { [ 'facter', '--json' ] },
);

has 'config' => ( is => 'rw', lazy => 1

n($self->command, \$in, \$out, \$err )
			or die("error running facter: $err");
		my $data = from_json( $out );
		return( $data );
	},
);

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Test::BDD::I