tracks/perl5/templates/test.mustache in trackler-2.2.1.131 vs tracks/perl5/templates/test.mustache in trackler-2.2.1.132

@@ -1,18 +1,17 @@
 #!/usr/bin/env perl
 use strict;
-use warnings;
+use warnings;{{#cdata}}
+use JSON::PP;{{/cdata}}
 use FindBin;
-use lib $FindBin::Bin;{{#lib_comment}} {{&lib_comment}}{{/lib_comment}}{{#cdata}}
-use JSON::PP;{{/cdata}}{{#modules}}
+use lib $FindBin::Bin;{{#lib_comment}} {{&lib_comment}}{{/lib_comment}}
+use {{&exercise}} {{#subs}}qw{{/subs}}({{&subs}});{{#modules}}
 use {{&use}};{{/modules}}
 
 my $exercise{{#exercise}} = '{{&exercise}}'{{/exercise}};{{#exercise_comment}} {{&exercise_comment}}{{/exercise_comment}}
 my $test_version{{#version}} = {{&version}}{{/version}};{{#version_comment}} {{&version_comment}}{{/version_comment}}
 use Test::More{{#plan}} tests => {{&plan}}{{/plan}};{{#plan_comment}} {{&plan_comment}}{{/plan_comment}}
-
-use_ok $exercise or BAIL_OUT;{{#use_test_comment}} {{&use_test_comment}}{{/use_test_comment}}
 {{#version_test_comment}}
 {{&version_test_comment}}{{/version_test_comment}}
 my $exercise_version = $exercise->VERSION // 0;
 if ($exercise_version != $test_version) {
   warn "\nExercise version mismatch. Further tests may fail!"
@@ -20,15 +19,12 @@
     . "Test is v$test_version.\n";
   BAIL_OUT if $ENV{EXERCISM};
 }
 {{#subs}}
 
-my %subs;
-foreach ( qw({{&subs}}) ) {
-  can_ok $exercise, $_;
-  $subs{$_} = $exercise->can($_);
-}
-{{/subs}}{{#cdata}}
+can_ok $exercise, 'import' or BAIL_OUT 'Cannot import subroutines from module';{{/subs}}{{#methods}}
+can_ok $exercise, qw({{&methods}});{{/methods}}{{#cdata}}
+
 my $C_DATA = do { local $/; decode_json(<DATA>); };{{/cdata}}
 {{&tests}}
 {{#cdata}}
 
 __DATA__