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 = "5999.000_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;
  21 __END__
  22
  23 =encoding utf-8
  24
  25 =head1 NAME
  26
  27 Gruntmaster::Daemon::Generator::File - Generate tests from files
  28
  29 =head1 SYNOPSIS
  30
  31   use Gruntmaster::Daemon::Generator::File;
  32   Gruntmaster::Daemon::Generator::File->generate(5, $meta);
  33
  34 =head1 DESCRIPTION
  35
  36 Gruntmaster::Daemon::Generator::File is a static test generator. Test C<$i> is C<< $meta->{infile}[$i - 1] >>.
  37
  38 =head1 AUTHOR
  39
  40 Marius Gavrilescu E<lt>marius@ieval.roE<gt>
  41
  42 =head1 COPYRIGHT AND LICENSE
  43
  44 Copyright (C) 2014 by Marius Gavrilescu
  45
  46 This library is free software: you can redistribute it and/or modify
  47 it under the terms of the GNU Affero General Public License as published by
  48 the Free Software Foundation, either version 3 of the License, or
  49 (at your option) any later version.
  50
  51
  52 =cut