From cd32393761dc4772cdf5bf32d3a73e3c150c45ed Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Karsten=20Silkenba=CC=88umer?= <ksi@kluks.de>
Date: Tue, 20 Mar 2012 23:23:04 +0100
Subject: [PATCH] Improved perl kata:

- use of "prove" instead of "perl" to fix usage of return value
- coding style improvements
---
 templates/perl.test/%kata_file%.pl | 4 ++--
 templates/perl.test/run-once.sh    | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/templates/perl.test/%kata_file%.pl b/templates/perl.test/%kata_file%.pl
index 0ea1cd3..1ecce6e 100644
--- a/templates/perl.test/%kata_file%.pl
+++ b/templates/perl.test/%kata_file%.pl
@@ -2,9 +2,9 @@
 use Test;
 
 sub %kata_file% {
-  "foo"
+    return "fixme";
 }
 
 BEGIN { plan tests => 1, todo => [0] }
 
-ok ("fixme", %kata_file%())
+ok( %kata_file%(), "foo" );
diff --git a/templates/perl.test/run-once.sh b/templates/perl.test/run-once.sh
index 47208ea..0061e65 100755
--- a/templates/perl.test/run-once.sh
+++ b/templates/perl.test/run-once.sh
@@ -1 +1 @@
-perl %kata_file%.pl
\ No newline at end of file
+prove %kata_file%.pl
\ No newline at end of file