ParseXS: refactor: add CLEANUP node

add this class:

    ExtUtils::ParseXS::Node::CLEANUP

and add a few basic tests for the CLEANUP keyword.

Note that (similarly to other codeblock-derived Node classes), this
commit causes a (harmless) slight change of '#line' output for an empty
code block. In particular, this:

    5: void
    6: foo()
    7:   CLEANUP:
    8:

used to generate these two adjacent lines of C code:

    #line 7 "foo.xs"
    #line NNN "foo.c"

but now outputs:

    #line 8 "foo.xs"
    #line NNN "foo.c"

Author: iabyn

dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm

@@ -1806,12 +1806,6 @@ sub OUTPUT_handler {
 }
 
 
-sub CLEANUP_handler {
-  my ExtUtils::ParseXS $self = shift;
-  $self->print_section();
-}
-
-
 sub FALLBACK_handler {
   my ExtUtils::ParseXS $self = shift;
   my ($setting) = @_;

dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Node.pm

@@ -2422,6 +2422,18 @@ sub parse {
 }
 
 
+# ======================================================================
+
+package ExtUtils::ParseXS::Node::CLEANUP;
+
+# Store the code lines associated with the CLEANUP: keyword
+
+BEGIN { $build_subclass->('codeblock', # parent
+)};
+
+# Currently all methods are just inherited.
+
+
 # ======================================================================
 
 package ExtUtils::ParseXS::Node::INIT;

dist/ExtUtils-ParseXS/t/001-basic.t

@@ -4123,6 +4123,48 @@ EOF
     test_many($preamble, 'XS_Foo_', \@test_fns);
 }
 
+{
+    # Test CLEANUP keyword
+
+    my $preamble = Q(<<'EOF');
+        |MODULE = Foo PACKAGE = Foo
+        |
+        |PROTOTYPES:  DISABLE
+        |
+EOF
+
+    my @test_fns = (
+        [
+            "CLEANUP basic",
+            [ Q(<<'EOF') ],
+                |int
+                |foo(int aaa)
+                |  CLEANUP:
+                |     YYY
+EOF
+            [ 0, 0, qr{\bint\s+aaa},                  "has aaa decl"      ],
+            [ 0, 0, qr{^\s+\QRETVAL = foo(aaa);}m,    "has code body"     ],
+            [ 0, 0, qr{^\s+YYY\n}m,                   "has cleanup body" ],
+            [ 0, 0, qr{aaa.*foo\(aaa\).*TARGi.*YYY}s, "in sequence"       ],
+            [ 0, 0, qr{\#line 8 .*\n\s+YYY},          "correct #line"     ],
+        ],
+        [
+             "CLEANUP empty",
+             [ Q(<<'EOF') ],
+                 |void
+                 |foo(int aaa)
+                 |  CLEANUP:
+EOF
+            [ 0, 0, qr{\bint\s+aaa},                  "has aaa decl"      ],
+            [ 0, 0, qr{^\s+\Qfoo(aaa);}m,             "has code body"     ],
+            [ 0, 0, qr{\Qfoo(aaa);\E\n\#line 8 },     "correct #line"     ],
+         ],
+    );
+
+    test_many($preamble, 'XS_Foo_', \@test_fns);
+}
+
+
 
 {
     # Test CODE keyword