Remove TestMoreHelper workaround - use native last SKIP

Now that the control flow fix is merged (PR #121), we can remove the
TestMoreHelper workaround that was transforming skip() calls at parse time.

Changes:
- Removed TestMoreHelper.java
- Removed TestMoreHelper calls from StatementParser and StatementResolver
- Updated Test::More.pm skip() to use 'last SKIP' directly
- Removed skip_internal() from Test::More.pm exports
- Cleaned up test.pl.patch to remove skip_internal workaround

Results:
- skip_control_flow.t: all 3 tests pass ✓
- Baseline maintained: 66683/66880 ✓

Author: fglock

dev/import-perl5/patches/test.pl.patch

@@ -1,46 +1,17 @@
 --- perl5/t/test.pl
 +++ t/test.pl
-@@ -1,3 +1,10 @@
+@@ -1,3 +1,7 @@
 +# --------------------------------------------
-+# Modified t/test.pl for running Perl test suite with PerlOnJava:
-+#
-+# - added subroutine `skip_internal` to workaround the use of non-local goto (`last SKIP`).
-+# - no other changes.
++# Modified t/test.pl for running Perl test suite with PerlOnJava
 +# --------------------------------------------
 +
  #
  # t/test.pl - most of Test::More functionality without the fuss
 
-@@ -587,16 +594,44 @@
+@@ -587,16 +591,16 @@
      last SKIP;
  }
 
-+sub skip_internal {
-+    my $why = shift;
-+    my $n   = @_ ? shift : 1;
-+    my $bad_swap;
-+    my $both_zero;
-+    {
-+      local $^W = 0;
-+      $bad_swap = $why > 0 && $n == 0;
-+      $both_zero = $why == 0 && $n == 0;
-+    }
-+    if ($bad_swap || $both_zero || @_) {
-+      my $arg = "'$why', '$n'";
-+      if (@_) {
-+        $arg .= join(", ", '', map { qq['$_'] } @_);
-+      }
-+      die qq[$0: expected skip(why, count), got skip($arg)\n];
-+    }
-+    for (1..$n) {
-+        _print "ok $test # skip $why\n";
-+        $test = $test + 1;
-+    }
-+    local $^W = 0;
-+    # last SKIP;
-+    1;
-+}
-+
  sub skip_if_miniperl {
 -    skip(@_) if is_miniperl();
 +    ## PerlOnJava is not miniperl

src/main/java/org/perlonjava/parser/StatementParser.java

@@ -237,9 +237,6 @@ public static Node parseIfStatement(Parser parser) {
             elseBranch = parseIfStatement(parser);
         }
 
-        // Use a macro to emulate Test::More SKIP blocks
-        TestMoreHelper.handleSkipTest(parser, thenBranch);
-
         return new IfNode(operator.text, condition, thenBranch, elseBranch, parser.tokenIndex);
     }
 

src/main/java/org/perlonjava/parser/StatementResolver.java

@@ -572,11 +572,6 @@ yield dieWarnNode(parser, "die", new ListNode(List.of(
 
                         parser.ctx.symbolTable.exitScope(scopeIndex);
 
-                        if (label != null && label.equals("SKIP")) {
-                            // Use a macro to emulate Test::More SKIP blocks
-                            TestMoreHelper.handleSkipTest(parser, block);
-                        }
-
                         yield new For3Node(label,
                                 true,
                                 null, null,

src/main/java/org/perlonjava/parser/TestMoreHelper.java

@@ -16,7 +16,6 @@ our @EXPORT = qw(
     pass fail diag note done_testing is_deeply subtest
     use_ok require_ok BAIL_OUT
     skip
-    skip_internal
     eq_array eq_hash eq_set
 );
 
@@ -286,21 +285,15 @@ sub BAIL_OUT {
     exit 255;
 }
 
-sub skip {
-    die "Test::More::skip() is not implemented";
-}
-
-# Workaround to avoid non-local goto (last SKIP).
-# The skip_internal subroutine is called from a macro in TestMoreHelper.java
-#
-sub skip_internal {
+sub skip($;$) {
     my ($name, $count) = @_;
+    $count ||= 1;
     for (1..$count) {
         $Test_Count++;
         my $result = "ok";
         print "$Test_Indent$result $Test_Count # skip $name\n";
     }
-    return 1;
+    last SKIP;
 }
 
 # Legacy comparison functions - simple implementations using is_deeply