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

package Gruntmaster::Daemon::Generator::File;

use 5.014000;
use strict;
use warnings;

use File::Slurp qw/write_file/;
use Log::Log4perl qw/get_logger/;

our $VERSION = '0.001';

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

sub generate{
  my ($test, $meta) = @_;
  get_logger->trace("Generating test $test ...");
  write_file 'input', $meta->{infile}[$test - 1]
}

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