cleanup

Author: fglock

src/main/java/org/perlonjava/codegen/EmitterVisitor.java

@@ -317,12 +317,12 @@ private void handleUnaryBuiltin(OperatorNode node, String operator) {
                     false);
         } else if ((operator.equals("stat") || operator.equals("lstat"))
                 && (node.operand instanceof IdentifierNode && ((IdentifierNode) node.operand).name.equals("_"))) {
-                // `stat _`
-                ctx.mv.visitMethodInsn(
-                        Opcodes.INVOKESTATIC,
-                        "org/perlonjava/operators/Stat",
-                        operator + "LastHandle",
-                        "()Lorg/perlonjava/runtime/RuntimeList;", false);
+            // `stat _`
+            ctx.mv.visitMethodInsn(
+                    Opcodes.INVOKESTATIC,
+                    "org/perlonjava/operators/Stat",
+                    operator + "LastHandle",
+                    "()Lorg/perlonjava/runtime/RuntimeList;", false);
         } else {
             node.operand.accept(this.with(RuntimeContextType.SCALAR));
             if (operatorHandler != null) {

src/main/java/org/perlonjava/codegen/JavaClassInfo.java

@@ -1,7 +1,6 @@
 package org.perlonjava.codegen;
 
 import org.objectweb.asm.Label;
-import org.perlonjava.runtime.RuntimeContextType;
 
 import java.util.ArrayDeque;
 import java.util.Deque;

src/main/java/org/perlonjava/codegen/LoopLabels.java

@@ -1,7 +1,6 @@
 package org.perlonjava.codegen;
 
 import org.objectweb.asm.Label;
-import org.perlonjava.runtime.RuntimeContextType;
 
 public class LoopLabels {
     public String labelName;

src/main/java/org/perlonjava/operators/FileTestOperator.java

@@ -7,7 +7,6 @@
 import java.nio.file.Files;
 import java.nio.file.LinkOption;
 import java.nio.file.Path;
-import java.nio.file.Paths;
 import java.nio.file.attribute.FileTime;
 import java.nio.file.attribute.PosixFilePermission;
 

src/main/java/org/perlonjava/operators/Stat.java

@@ -7,7 +7,6 @@
 import java.nio.file.Files;
 import java.nio.file.LinkOption;
 import java.nio.file.Path;
-import java.nio.file.Paths;
 import java.nio.file.attribute.BasicFileAttributes;
 import java.nio.file.attribute.PosixFileAttributes;
 import java.nio.file.attribute.PosixFilePermission;

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

@@ -483,9 +483,9 @@ public static Node parseCoreOperator(Parser parser, LexerToken token, int startI
                 parser.parsingTakeReference = true;    // don't call `&subr` while parsing "Take reference"
                 operand = ListParser.parseZeroOrOneList(parser, 0);
                 parser.parsingTakeReference = false;
-                if (((ListNode)operand).elements.isEmpty()) {
+                if (((ListNode) operand).elements.isEmpty()) {
                     // `defined` without arguments means `defined $_`
-                    ((ListNode)operand).elements.add(
+                    ((ListNode) operand).elements.add(
                             new OperatorNode(
                                     "$",
                                     new IdentifierNode("_", parser.tokenIndex),

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

@@ -8,8 +8,6 @@
 import org.perlonjava.perlmodule.Universal;
 import org.perlonjava.runtime.*;
 
-import java.util.List;
-
 import static org.perlonjava.parser.NumberParser.parseNumber;
 import static org.perlonjava.parser.SpecialBlockParser.runSpecialBlock;
 import static org.perlonjava.parser.SpecialBlockParser.setCurrentScope;

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

@@ -68,8 +68,7 @@ static Node parseSubroutineCall(Parser parser) {
         if (TokenUtils.peek(parser).text.equals("->")) {
             // method call without parentheses
             arguments = new ListNode(parser.tokenIndex);
-        }
-        else if (prototype == null) {
+        } else if (prototype == null) {
             // no prototype
             arguments = ListParser.parseZeroOrMoreList(parser, 0, false, true, false, false);
         } else if (prototype.isEmpty()) {

src/main/java/org/perlonjava/perlmodule/Exporter.java

@@ -2,8 +2,6 @@
 
 import org.perlonjava.runtime.*;
 
-import java.lang.reflect.Method;
-
 /**
  * The Exporter class is responsible for managing the export of symbols from one Perl package to another.
  * It mimics the behavior of Perl's Exporter module, allowing symbols to be imported into other namespaces.

src/main/java/org/perlonjava/perlmodule/FileSpec.java

@@ -1,6 +1,8 @@
 package org.perlonjava.perlmodule;
 
-import org.perlonjava.runtime.*;
+import org.perlonjava.runtime.RuntimeArray;
+import org.perlonjava.runtime.RuntimeList;
+import org.perlonjava.runtime.RuntimeScalar;
 
 import java.io.File;
 import java.nio.file.Paths;
@@ -64,7 +66,7 @@ public static void initialize() {
      * Converts a path to a canonical form, removing redundant separators and up-level references.
      *
      * @param args The arguments passed from the Perl environment, where args[1] is the path.
-     * @param ctx The context in which the method is called.
+     * @param ctx  The context in which the method is called.
      * @return A {@link RuntimeList} containing the canonical path.
      */
     public static RuntimeList canonpath(RuntimeArray args, int ctx) {
@@ -80,7 +82,7 @@ public static RuntimeList canonpath(RuntimeArray args, int ctx) {
      * Concatenates multiple directory names into a single path.
      *
      * @param args The arguments passed from the Perl environment, representing directory names.
-     * @param ctx The context in which the method is called.
+     * @param ctx  The context in which the method is called.
      * @return A {@link RuntimeList} containing the concatenated directory path.
      */
     public static RuntimeList catdir(RuntimeArray args, int ctx) {
@@ -97,7 +99,7 @@ public static RuntimeList catdir(RuntimeArray args, int ctx) {
      * This method is an alias for {@link #catdir(RuntimeArray, int)}.
      *
      * @param args The arguments passed from the Perl environment, representing file names.
-     * @param ctx The context in which the method is called.
+     * @param ctx  The context in which the method is called.
      * @return A {@link RuntimeList} containing the concatenated file path.
      */
     public static RuntimeList catfile(RuntimeArray args, int ctx) {
@@ -108,7 +110,7 @@ public static RuntimeList catfile(RuntimeArray args, int ctx) {
      * Returns the current directory symbol.
      *
      * @param args The arguments passed from the Perl environment.
-     * @param ctx The context in which the method is called.
+     * @param ctx  The context in which the method is called.
      * @return A {@link RuntimeList} containing the current directory symbol.
      */
     public static RuntimeList curdir(RuntimeArray args, int ctx) {
@@ -119,7 +121,7 @@ public static RuntimeList curdir(RuntimeArray args, int ctx) {
      * Returns the null device for the current operating system.
      *
      * @param args The arguments passed from the Perl environment.
-     * @param ctx The context in which the method is called.
+     * @param ctx  The context in which the method is called.
      * @return A {@link RuntimeList} containing the null device path.
      */
     public static RuntimeList devnull(RuntimeArray args, int ctx) {
@@ -131,7 +133,7 @@ public static RuntimeList devnull(RuntimeArray args, int ctx) {
      * Returns the root directory for the current operating system.
      *
      * @param args The arguments passed from the Perl environment.
-     * @param ctx The context in which the method is called.
+     * @param ctx  The context in which the method is called.
      * @return A {@link RuntimeList} containing the root directory path.
      */
     public static RuntimeList rootdir(RuntimeArray args, int ctx) {
@@ -143,7 +145,7 @@ public static RuntimeList rootdir(RuntimeArray args, int ctx) {
      * Returns the temporary directory path for the current operating system.
      *
      * @param args The arguments passed from the Perl environment.
-     * @param ctx The context in which the method is called.
+     * @param ctx  The context in which the method is called.
      * @return A {@link RuntimeList} containing the temporary directory path.
      */
     public static RuntimeList tmpdir(RuntimeArray args, int ctx) {
@@ -158,7 +160,7 @@ public static RuntimeList tmpdir(RuntimeArray args, int ctx) {
      * Returns the parent directory symbol.
      *
      * @param args The arguments passed from the Perl environment.
-     * @param ctx The context in which the method is called.
+     * @param ctx  The context in which the method is called.
      * @return A {@link RuntimeList} containing the parent directory symbol.
      */
     public static RuntimeList updir(RuntimeArray args, int ctx) {
@@ -169,7 +171,7 @@ public static RuntimeList updir(RuntimeArray args, int ctx) {
      * Filters out the current and parent directory symbols from a list of directory names.
      *
      * @param args The arguments passed from the Perl environment, representing directory names.
-     * @param ctx The context in which the method is called.
+     * @param ctx  The context in which the method is called.
      * @return A {@link RuntimeList} containing the filtered directory names.
      */
     public static RuntimeList no_upwards(RuntimeArray args, int ctx) {
@@ -187,7 +189,7 @@ public static RuntimeList no_upwards(RuntimeArray args, int ctx) {
      * Determines if the current file system is case-tolerant.
      *
      * @param args The arguments passed from the Perl environment.
-     * @param ctx The context in which the method is called.
+     * @param ctx  The context in which the method is called.
      * @return A {@link RuntimeList} containing a boolean indicating case tolerance.
      */
     public static RuntimeList case_tolerant(RuntimeArray args, int ctx) {
@@ -199,7 +201,7 @@ public static RuntimeList case_tolerant(RuntimeArray args, int ctx) {
      * Checks if a given file name is an absolute path.
      *
      * @param args The arguments passed from the Perl environment, where args[1] is the file name.
-     * @param ctx The context in which the method is called.
+     * @param ctx  The context in which the method is called.
      * @return A {@link RuntimeList} containing a boolean indicating if the path is absolute.
      */
     public static RuntimeList file_name_is_absolute(RuntimeArray args, int ctx) {
@@ -215,7 +217,7 @@ public static RuntimeList file_name_is_absolute(RuntimeArray args, int ctx) {
      * Retrieves the system's PATH environment variable as a list of directories.
      *
      * @param args The arguments passed from the Perl environment.
-     * @param ctx The context in which the method is called.
+     * @param ctx  The context in which the method is called.
      * @return A {@link RuntimeList} containing the directories in the PATH.
      */
     public static RuntimeList path(RuntimeArray args, int ctx) {
@@ -233,7 +235,7 @@ public static RuntimeList path(RuntimeArray args, int ctx) {
      * This method is an alias for {@link #catfile(RuntimeArray, int)}.
      *
      * @param args The arguments passed from the Perl environment, representing path components.
-     * @param ctx The context in which the method is called.
+     * @param ctx  The context in which the method is called.
      * @return A {@link RuntimeList} containing the joined path.
      */
     public static RuntimeList join(RuntimeArray args, int ctx) {
@@ -244,7 +246,7 @@ public static RuntimeList join(RuntimeArray args, int ctx) {
      * Splits a path into volume, directory, and file components.
      *
      * @param args The arguments passed from the Perl environment, where args[1] is the path and args[2] is optional.
-     * @param ctx The context in which the method is called.
+     * @param ctx  The context in which the method is called.
      * @return A {@link RuntimeList} containing the volume, directory, and file components.
      */
     public static RuntimeList splitpath(RuntimeArray args, int ctx) {
@@ -281,7 +283,7 @@ public static RuntimeList splitpath(RuntimeArray args, int ctx) {
      * Splits a directory path into its individual components.
      *
      * @param args The arguments passed from the Perl environment, where args[1] is the directory path.
-     * @param ctx The context in which the method is called.
+     * @param ctx  The context in which the method is called.
      * @return A {@link RuntimeList} containing the directory components.
      */
     public static RuntimeList splitdir(RuntimeArray args, int ctx) {
@@ -301,7 +303,7 @@ public static RuntimeList splitdir(RuntimeArray args, int ctx) {
      * Constructs a complete path from volume, directory, and file components.
      *
      * @param args The arguments passed from the Perl environment, where args[1] is the volume, args[2] is the directory, and args[3] is the file.
-     * @param ctx The context in which the method is called.
+     * @param ctx  The context in which the method is called.
      * @return A {@link RuntimeList} containing the constructed path.
      */
     public static RuntimeList catpath(RuntimeArray args, int ctx) {
@@ -319,7 +321,7 @@ public static RuntimeList catpath(RuntimeArray args, int ctx) {
      * Converts an absolute path to a relative path based on a given base path.
      *
      * @param args The arguments passed from the Perl environment, where args[1] is the absolute path and args[2] is optional base path.
-     * @param ctx The context in which the method is called.
+     * @param ctx  The context in which the method is called.
      * @return A {@link RuntimeList} containing the relative path.
      */
     public static RuntimeList abs2rel(RuntimeArray args, int ctx) {
@@ -336,7 +338,7 @@ public static RuntimeList abs2rel(RuntimeArray args, int ctx) {
      * Converts a relative path to an absolute path based on a given base path.
      *
      * @param args The arguments passed from the Perl environment, where args[1] is the relative path and args[2] is optional base path.
-     * @param ctx The context in which the method is called.
+     * @param ctx  The context in which the method is called.
      * @return A {@link RuntimeList} containing the absolute path.
      */
     public static RuntimeList rel2abs(RuntimeArray args, int ctx) {