new tasks

Task/Assertions/Perl/assertions-2.pl

@@ -0,0 +1,2 @@
+use autodie;
+open my $fh, '<', 'file'; # automatically throws an exception on failure

Task/Assertions/Perl/assertions-3.pl

@@ -0,0 +1,9 @@
+my $a = 5;
+#...input or change $a here
+$a == 42 or die "Error message\n";
+# or, alternatively:
+die "Error message\n" unless $a == 42;
+# or:
+die "Error message\n" if not $a == 42;
+# or just:
+die "Error message\n" if $a != 42;

Task/Assertions/Perl/assertions-4.pl

@@ -0,0 +1,2 @@
+use Carp::Assert;
+assert($a == 42);

Task/Assertions/Perl/assertions-5.pl

@@ -0,0 +1,4 @@
+is $a, 42;
+ok $a == 42;
+cmp_ok $a, '==', 42, 'The answer should be 42';
+# etc.

Task/Assertions/Perl/assertions.pl

@@ -0,0 +1 @@
+open my $fh, '<', 'file' or die "Cannot open file: $!\n"; # $! contains the error message from the last error