RT 68176 and 71705 -- support all augmented assignment operators

Author: moregan

lib/PPI/Token/Operator.pm

@@ -20,9 +20,11 @@ PPI::Token::Operator - Token class for operators
   <<   >>   lt   gt   le   ge   cmp  ~~
   ==   !=   <=>  .    ..   ...  ,
   &    |    ^    &&   ||   //
-  ?    :    =    +=   -=   *=   .=   //=
-  <    >    <=   >=   <>   =>   ->
-  and  or   dor  not  eq   ne
+  ?    :    **=  +=   -=   .=   *=   /=
+  %=   x=   &=   |=   ^=   <<=  >>=  &&=
+  ||=  //=  <    >    <=   >=   <>   =>   ->
+  and  or   xor  not  eq   ne
+
 
 =head1 DESCRIPTION
 
@@ -58,7 +60,8 @@ BEGIN {
 		< > <= >= lt gt le ge
 		== != <=> eq ne cmp ~~
 		& | ^ && || // .. ...
-		? : = += -= *= .= /= //=
+		? :
+		= **= += -= .= *= /= %= x= &= |= ^= <<= >>= &&= ||= //=
 		=> <>
 		and or xor not
 		}, ',' 	# Avoids "comma in qw{}" warning

lib/PPI/Token/Whitespace.pm

@@ -391,6 +391,12 @@ sub __TOKENIZER__on_char {
 			}
 		}
 
+		# Special Case: "x" recognized as a word here
+		# might be the beginning of the "x=" operator.
+		if ( $nextchar eq '=' ) {
+			return 'Operator';
+		}
+
 		# Otherwise, commit like a normal bareword
 		return PPI::Token::Word->__TOKENIZER__commit($t);
 

t/ppi_lexer.t

@@ -1,7 +1,5 @@
 #!/usr/bin/perl
 
-# Unit testing for PPI, generated by Test::Inline
-
 use strict;
 use File::Spec::Functions ':ALL';
 BEGIN {
@@ -89,7 +87,7 @@ isa_ok( $statements[9]->schild(1), 'PPI::Structure::Block',
 	'The curly in ' . $statements[9]);
 isa_ok( $statements[10]->schild(2), 'PPI::Structure::Constructor',
 	'The curly in ' . $statements[10]);
-isa_ok( $statements[11]->schild(3), 'PPI::Structure::Constructor',
+isa_ok( $statements[11]->schild(2), 'PPI::Structure::Constructor',
 	'The curly in ' . $statements[11]);
 isa_ok( $statements[12]->schild(2), 'PPI::Structure::Constructor',
 	'The curly in ' . $statements[12]);

t/ppi_token_operator.t

@@ -11,7 +11,7 @@ BEGIN {
 }
 use PPI;
 
-use Test::More tests => 235;
+use Test::More tests => 275;
 
 
 FIND_ONE_OP: {