New Fetch

perl5/hello-world/HelloWorld.pm

@@ -0,0 +1,10 @@
+# Declare package 'HelloWorld' with version
+package HelloWorld 1;
+use strict;
+use warnings;
+
+sub hello {
+  # Remove the comments and write some code here to pass the test suite.
+}
+
+1;

perl5/hello-world/README.md

@@ -0,0 +1,21 @@
+# Hello World
+
+The classical introductory exercise. Just say "Hello, World!".
+
+["Hello, World!"](http://en.wikipedia.org/wiki/%22Hello,_world!%22_program) is
+the traditional first program for beginning programming in a new language
+or environment.
+
+The objectives are simple:
+
+- Write a function that returns the string "Hello, World!".
+- Run the test suite and make sure that it succeeds.
+- Submit your solution and check it at the website.
+
+If everything goes well, you will be ready to fetch your first real exercise.
+## Source
+
+This is an exercise to introduce users to using Exercism [http://en.wikipedia.org/wiki/%22Hello,_world!%22_program](http://en.wikipedia.org/wiki/%22Hello,_world!%22_program)
+
+## Submitting Incomplete Solutions
+It's possible to submit an incomplete solution so you can see how others have completed the exercise.

perl5/hello-world/hello-world.t

@@ -0,0 +1,64 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use FindBin;
+my $dir;
+use lib $dir = $FindBin::Bin; # Look for the module inside the same directory as this test file.
+use JSON::PP;
+
+my $exercise = 'HelloWorld'; # The name of this exercise.
+my $test_version = 1; # The version we will be matching against the exercise.
+my $module = $ENV{EXERCISM} ? 'Example' : $exercise; # $ENV{EXERCISM} is for tests not directly for the exercise, don't worry about these :)
+use Test::More tests => 4; # This is how many tests we expect to run.
+
+use_ok $module or BAIL_OUT; # Check that the module can be use-d.
+
+# If the exercise is updated, we want to make sure other people testing
+# your code don't think you've made a mistake if things have changed!
+my $exercise_version = $exercise->VERSION // 0;
+if ($exercise_version != $test_version) {
+  warn "\nExercise version mismatch. Further tests may fail!"
+    . "\n$exercise is v$exercise_version. "
+    . "Test is v$test_version.\n";
+  BAIL_OUT if $ENV{EXERCISM};
+}
+
+my %subs;
+foreach ( qw(hello) ) {
+  can_ok $exercise, $_;
+  $subs{$_} = $exercise->can($_);
+}
+
+my $C_DATA;
+is $subs{hello}->($_->{input}), $_->{expected}, $_->{description} foreach @{$C_DATA->{cases}};
+
+# Ignore this for your exercise! Tells Exercism folks when exercise cases become out of date.
+SKIP: {
+  skip '', 1 unless $ENV{EXERCISM};
+  is_deeply eval q{
+    use Path::Tiny;
+    decode_json path("$dir/../../problem-specifications/exercises/".path($dir)->basename.'/canonical-data.json')->realpath->slurp;
+  }, $C_DATA, 'canonical-data';
+}
+
+done_testing; # There are no more tests after this :)
+
+# 'INIT' is a phaser, it makes sure that the test data is available before everything else
+# starts running (otherwise we'd have to shove the test data into the middle of the file!)
+INIT {
+$C_DATA = decode_json <<'EOF';
+
+{
+  "exercise": "hello-world",
+  "version": "1.0.0",
+  "cases": [
+    {
+      "description": "Say Hi!",
+      "property": "hello",
+      "expected": "Hello, World!"
+    }
+  ]
+}
+
+EOF
+}