From 5a4de48a6d63cb383832f6ef85b21699a511b755 Mon Sep 17 00:00:00 2001
From: Jules Laplace <julescarbon@gmail.com>
Date: Fri, 25 May 2018 19:54:38 +0200
Subject: stubbing in a lot of stuff!

---
 test/module/test.pl | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 test/module/test.pl

(limited to 'test/module/test.pl')

diff --git a/test/module/test.pl b/test/module/test.pl
new file mode 100755
index 0000000..0853f79
--- /dev/null
+++ b/test/module/test.pl
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+use Getopt::Long;
+my $train;
+my $test;
+GetOptions (
+  "train"  => \$train,
+  "test"  => \$test
+)
+or die("Error in command line arguments\n");
+
+print "hello i am a perl script :o)\n";
+
+if ($train) {
+  print "we are training...\n";
+  for (my $i = 0; $i < 10; $i++) {
+    print "$i...\n";
+    sleep 1;
+  }
+} elsif ($test) {
+  print "we are testing...\n";
+  for (my $i = 0; $i < 10; $i++) {
+    print "$i...\n";
+    sleep 1;
+  }
+} else {
+  die "unknown command!";
+}
+
+exit;
-- 
cgit v1.2.3-70-g09d2