lib/Gruntmaster/Daemon/Generator/Run.pm

   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 }