Update to Perl 5.42.0

Author: choroba

Changes

@@ -1,5 +1,8 @@
 Revision history for Syntax-Construct
 
+1.043   2025--
+        - Perl 5.42.0 released
+
 1.042   2025-06-13
         - Add sig-warn-obj
 

lib/Syntax/Construct.pm

@@ -4,10 +4,13 @@ use 5.006002;
 use strict;
 use warnings;
 
-our $VERSION = '1.042';
+our $VERSION = '1.043';
 
 my %introduces = do { no warnings 'qw';
-                 ( '5.040' => [qw[
+                 ( '5.042' => [qw[
+                                  :writer my_method ->& unicode16.0 ^^=
+                             ]],
+                   '5.040' => [qw[
                                   ^^ __CLASS__ :reader
                              ]],
                    '5.038' => [qw[
@@ -185,6 +188,9 @@ my %alias = (
     'optimistic-eval' => '*{}',
     # 5.040
     'logical-xor' => '^^',
+    # 5.042
+    'lexical-method-invocation-operator' => '->&',
+    'assign-logical-xor' => '^^=',
 );
 
 my %_introduced = map {
@@ -305,7 +311,7 @@ Syntax::Construct - Explicitly state which non-feature constructs are used in th
 
 =head1 VERSION
 
-Version 1.042
+Version 1.043
 
 =head1 SYNOPSIS
 
@@ -989,6 +995,32 @@ L<perl5400delta/New __CLASS__ Keyword>.
 
 L<perl5400delta/:reader attribute for field variables>
 
+=head2 5.042
+
+=head3 :writer
+
+L<perldelta/New :writer attribute on field variables>
+
+=head3 my_method
+
+L<perldelta/Lexical method declaration using my method>
+
+=head3 ->&
+
+L<< perldelta/Lexical method invocation operator ->& >>
+
+Alias: lexical-method-invocation-operator
+
+=head3 unicode16.0
+
+L<perldelta/Unicode 16.0 supported>
+
+=head3 ^^=
+
+L<perldelta/Assigning logical xor ^^= operator>
+
+Alias: assign-logical-xor
+
 =for completeness
 =head2 old
 

t/02-constructs.t

@@ -27,6 +27,34 @@ sub skippable {
 
 
 my %tests = (
+    '5.042' => [
+        [ ':writer',
+          'use experimental qw{ class };
+           class MyClass3 { field $x :writer :reader }
+           my $o = MyClass3->new;
+           $o->set_x(2);
+           $o->x',
+          '2' ],
+        [ 'my_method',
+          'use experimental qw{ class };
+           class MyClass4 { my method x { "x" }; method p { $self->&x() } }
+           my $o = MyClass4->new;
+           $o->p',
+          'x' ],
+        [ '->&',
+          'use experimental qw{ class };
+           class MyClass5 { my method x { "x" }; method p { $self->&x() } }
+           my $o = MyClass5->new;
+           $o->p',
+          'x' ],
+        [ 'unicode16.0',
+          '"\N{HARP}" eq "\N{U+1FA89}"', 1],
+        [ '^^=',
+         'my $x = 1;
+          $x ^^= 0;
+          $x',
+          1 ]
+    ],
     '5.040' => [
         [ '^^',
           '1 ^^ 0', 1 ],

t/05-functions.t

@@ -6,7 +6,7 @@ use FindBin;
 
 my %count;
 BEGIN {
-    %count = (constructs => 103, old => 4, removed => 7);
+    %count = (constructs => 108, old => 4, removed => 7);
 }
 
 use Test::More tests => 5;

xt/completness.t

@@ -5,9 +5,9 @@ use FindBin;
 
 my $plan;
 BEGIN {
-    my %count = (constructs => 103,
+    my %count = (constructs => 108,
                  removed    => 7,
-                 aliases    => 80,
+                 aliases    => 82,
                  old        => 4);
     $plan = 5 * $count{constructs} + 3 * $count{removed}
           + 6 * $count{aliases} + $count{old} + 1;