allow variables with spaces after the sigil

Author: wchristian

Changes

@@ -2,6 +2,7 @@ Revision history for Perl extension PPI
 
 {{$NEXT}}
 	- Allow zero byte documents to have a location
+	- Allow variable names to have whitespace after the sigil (GH#158)
 
 1.281   2024-12-27 14:44:47Z
 	Summary:

lib/PPI/Token/Symbol.pm

@@ -162,7 +162,7 @@ sub __TOKENIZER__on_char {
 
 	# Suck in till the end of the symbol
 	pos $t->{line} = $t->{line_cursor};
-	if ( $t->{line} =~ m/\G([\w:\']+)/gc ) {
+	if ( $t->{line} =~ m/\G(\s*[\w:\']+)/gc ) {
 		$t->{token}->{content} .= $1;
 		$t->{line_cursor}      += length $1;
 	}
@@ -201,6 +201,7 @@ sub __TOKENIZER__on_char {
 	my $pattern = qr/
 	^(
 		[\$@%&*]
+		\s*
 		(?:
 				: (?! : )			# allow single-colon non-magic variables
 			|

lib/PPI/Token/Unknown.pm

@@ -115,6 +115,14 @@ sub __TOKENIZER__on_char {
 			return 1;
 		}
 
+		if ( $char eq ' ' ) {
+			pos $t->{line} = $t->{line_cursor} + 1;
+			if ( $t->{line} =~ m/\G\s*[a-z_]/gci ) {
+				$t->{class} = $t->{token}->set_class('Symbol');
+				return 1;
+			}
+		}
+
 		# Is it a nameless arg in a signature?
 		if ( $char eq ')' or $char eq '=' or $char eq ',' ) {
 			my ($has_sig) = $t->_current_token_has_signatures_active;

t/foreach_whitespace.t

@@ -13,7 +13,6 @@ use PPI::Dumper;
 sub test_document;
 
 BASE_SPACE_SYMBOL: {
-	local $TODO = "crashes";
 	test_document    #
 	  '$ s',         #
 	  [
@@ -24,7 +23,6 @@ BASE_SPACE_SYMBOL: {
 }
 
 FOR_LOOP: {
-	local $TODO = "crashes";
 	test_document
 	  'for my $ s ( qw( a b ) ) { say $s }',
 	  [
@@ -48,7 +46,6 @@ FOR_LOOP: {
 }
 
 SIGIL_WITH_TRASH: {
-	local $TODO = "crashes";
 	test_document
 	  '$ \"8;b',
 	  [
@@ -61,7 +58,6 @@ SIGIL_WITH_TRASH: {
 }
 
 SIGIL_WITH_TABS_AND_TRAIL: {
-    local $TODO = "crashes";
 	test_document    #
 	  '$ 	 b 	 ',    #
 	  [              #