tracks/perl5/exercises/phone-number/phone-number.t in trackler-2.2.1.104 vs tracks/perl5/exercises/phone-number/phone-number.t in trackler-2.2.1.105

@@ -25,28 +25,27 @@
 foreach ( qw(clean_number) ) {
   can_ok $exercise, $_;
   $subs{$_} = $exercise->can($_);
 }
 
-my $C_DATA;
+my $C_DATA = do { local $/; decode_json(<DATA>); };
 foreach my $subcases (@{$C_DATA->{cases}}) {
   is $subs{clean_number}->($_->{phrase}), $_->{expected}, $_->{description} foreach @{$subcases->{cases}};
 }
 
 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';
+  TODO: {
+    local $TODO = 'update canonical-data';
+    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;
-
-INIT {
-$C_DATA = decode_json <<'EOF';
-
+__DATA__
 {
   "exercise": "phone-number",
   "version": "1.2.0",
   "cases": [
     {
@@ -130,9 +129,6 @@
           "expected": null
         }
       ]
     }
   ]
-}
-
-EOF
 }