Remove method/sub checks, refactor tests, change perltidy options (ex…

…ercism#581)

.perltidyrc

@@ -1,4 +1,7 @@
 --perl-best-practices
 --nostandard-output
 --ignore-side-comment-lengths
+--minimum-space-to-comment=1
+--novalign-side-comments
+--freeze-newlines
 --keep-old-breakpoints-after='('

bin/README.md

@@ -19,8 +19,6 @@ modules:
 
 # For exports
 subs: 'foo bar'
-# For class methods
-methods: 'foo bar'
 
 # This is a string containing Perl code, to be inserted before any properties
 tests: |-

exercises/practice/accumulate/accumulate.t

@@ -7,8 +7,6 @@ use lib $Bin, "$Bin/local/lib/perl5";
 use Accumulate   qw<accumulate>;
 use experimental qw<signatures>;
 
-imported_ok qw<accumulate> or bail_out;
-
 is(
     accumulate( [], sub ($x) { $x * $x } ),
     [],
@@ -28,21 +26,15 @@ is(
 );
 
 is(
-    accumulate(
-        [ "the", "quick", "brown", "fox", "etc" ],
-        sub ($x) { scalar reverse $x }
-    ),
+    accumulate( [ "the", "quick", "brown", "fox", "etc" ], sub ($x) { scalar reverse $x } ),
     [ "eht", "kciuq", "nworb", "xof", "cte" ],
     "accumulate reversed strings",
 );
 
 is(
-    accumulate(
-        [ "a", "b", "c" ],
-        sub ($x) {
+    accumulate( [ "a", "b", "c" ], sub ($x) {
             accumulate( [ 1 .. 3 ], sub ($y) { $x . $y } );
-        }
-    ),
+    } ),
     [ [ "a1", "a2", "a3" ], [ "b1", "b2", "b3" ], [ "c1", "c2", "c3" ] ],
     "accumulate recursively",
 );

exercises/practice/all-your-base/.meta/solutions/AllYourBase.pm

@@ -29,7 +29,8 @@ sub rebase {
         }
     }
 
-    return from_decimal( $output_base, to_decimal( $input_base, $digits ) );
+    return from_decimal( $output_base,
+        to_decimal( $input_base, $digits ) );
 }
 
 sub to_decimal {

exercises/practice/all-your-base/all-your-base.t

@@ -6,8 +6,6 @@ use lib $Bin, "$Bin/local/lib/perl5";
 
 use AllYourBase qw<rebase>;
 
-imported_ok qw<rebase> or bail_out;
-
 is(
     rebase( [1], 2, 10 ),
     [1],

exercises/practice/allergies/.meta/solutions/Allergies.pm

@@ -26,10 +26,8 @@ sub allergic_to {
 
 sub list_allergies {
     my ($score) = @_;
-    return [
-        grep { allergic_to $_, $score }
-            keys %{ +ALLERGENS }
-    ];
+    return [ grep { allergic_to $_, $score }
+            keys %{ +ALLERGENS } ];
 }
 
 1;

exercises/practice/allergies/.meta/template-data.yaml

@@ -13,7 +13,7 @@ properties:
   list:
     test: |-
       use Data::Dmp;
-      sprintf(<<'END', $case->{input}{score}, 'bag {' . (join '', map {'item ' . dmp($_) . ';'} @{$case->{expected}}) . 'end;}', dmp($case->{description}));
+      sprintf(<<'END', $case->{input}{score}, "bag {\n" . (join '', map {'item ' . dmp($_) . ";\n"} @{$case->{expected}}) . "end;\n}", dmp($case->{description}));
       is(
           list_allergies(%s),
           %s,