lib/Gruntmaster/Daemon/Generator/File.pm

   1 package Gruntmaster::Daemon::Generator::File;
   2
   3 use 5.014000;
   4 use strict;
   5 use warnings;
   6
   7 use File::Slurp qw/write_file/;
   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 ...");
  17   write_file 'input', $meta->{infile}[$test - 1]
  18 }
  19
  20 1