allow experimental to declare signatures

Perl-Critic · Dec 26, 2024 · f5203e1 · f5203e1
1 parent a26eefc
commit f5203e1
Show file tree

Hide file tree

Showing 2 changed files with 32 additions and 1 deletion.
diff --git a/lib/PPI/Statement/Include.pm b/lib/PPI/Statement/Include.pm
@@ -292,6 +292,10 @@ sub feature_mods {
 		my $v = $self->module_version->$_call_if_object("literal") || 0;
 		return { signatures => $v >= 2023 ? "perl" : 0 };
 	}
+	elsif ( $self->module eq "experimental" ) {
+		my $wants_signatures = grep /signatures/, $self->_decompose_arguments;
+		return { signatures => $wants_signatures ? "perl" : 0 };
+	}
 	elsif ( $self->module eq "Syntax::Keyword::Try" ) {
 		return { try => $on_or_off ? "Syntax::Keyword::Try" : 0 };
 	}

diff --git a/t/feature_tracking.t b/t/feature_tracking.t
@@ -2,7 +2,7 @@
 
 use lib 't/lib';
 use PPI::Test::pragmas;
-use Test::More tests => 11 + ( $ENV{AUTHOR_TESTING} ? 1 : 0 );
+use Test::More tests => 13 + ( $ENV{AUTHOR_TESTING} ? 1 : 0 );
 
 use B 'perlstring';
 
@@ -388,6 +388,33 @@ END_PERL
 	  "simple custom boilerplate modules";
 }
 
+CPAN_EXPERIMENTAL: {
+	test_document
+	  <<'END_PERL',
+		use experimental qw( signatures );
+		sub meep($) {}
+END_PERL
+	  [
+		'PPI::Statement::Include',      'use experimental qw( signatures );',
+		'PPI::Token::Word',             'use',
+		'PPI::Token::Word',             'experimental',
+		'PPI::Token::QuoteLike::Words', 'qw( signatures )',
+		'PPI::Token::Structure',        ';',
+		'PPI::Statement::Sub',          'sub meep($) {}',
+		'PPI::Token::Word',             'sub',
+		'PPI::Token::Word',             'meep',
+		'PPI::Structure::Signature',    '($)',
+		'PPI::Token::Structure',        '(',
+		'PPI::Statement::Expression',   '$',
+		'PPI::Token::Symbol',           '$',
+		'PPI::Token::Structure',        ')',
+		'PPI::Structure::Block',        '{}',
+		'PPI::Token::Structure',        '{',
+		'PPI::Token::Structure',        '}',
+	  ],
+	  "simple custom boilerplate modules";
+}
+
 
 ok( PPI::Tokenizer->new( \"d()" )->all_tokens, "bare tokenizer auto-vivifies document object" );