[gruntmaster-daemon.git] / lib / Gruntmaster / Daemon / Generator / Run.pm

package Gruntmaster::Daemon::Generator::Run;

use 5.014000;
use strict;
use warnings;

use Log::Log4perl qw/get_logger/;

our $VERSION = '0.001';

##################################################

sub generate{
  my ($test, $meta) = @_;
  my $gen = $meta->{files}{gen};
  get_logger->trace("Generating test $test...");
  $gen->{run}->($gen->{name}, args => [ $test ], fds => [qw/1 >input/]);
}
Commit	Line	Data
5c5cd38a MG	1	package Gruntmaster::Daemon::Generator::Run;
	2
	3	use 5.014000;
	4	use strict;
	5	use warnings;
	6
	7	use Log::Log4perl qw/get_logger/;
	8
	9	our $VERSION = '0.001';
	10
	11	##################################################
	12
	13	sub generate{
	14	my ($test, $meta) = @_;
	15	my $gen = $meta->{files}{gen};
	16	get_logger->trace("Generating test $test...");
	17	$gen->{run}->($gen->{name}, args => [ $test ], fds => [qw/1 >input/]);
	18	}