add support for the dotted bitwise operators

lib/PPI/Singletons.pm

@@ -21,8 +21,10 @@ our %OPERATOR = map { $_ => 1 } (
 	< > <= >= lt gt le ge
 	== != <=> eq ne cmp ~~
 	& | ^ && || // .. ...
+	&. |. ^. ~.
 	? :
 	= **= += -= .= *= /= %= x= &= |= ^= <<= >>= &&= ||= //=
+	&.= |.= ^.= ~.=
 	=> <> <<>>
 	and or xor not
 	}, ',' 	# Avoids "comma in qw{}" warning

t/08_regression.t

@@ -7,7 +7,7 @@
 use if !(-e 'META.yml'), "Test::InDistDir";
 use lib 't/lib';
 use PPI::Test::pragmas;
-use Test::More tests => 1085 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
+use Test::More tests => 1121 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
 
 use PPI ();
 use PPI::Test qw( pause );

t/25_increment.t

@@ -7,7 +7,7 @@
 
 use lib 't/lib';
 use PPI::Test::pragmas;
-use Test::More tests => 9554 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
+use Test::More tests => 9614 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
 
 use PPI::Test::Run ();
 

t/data/08_regression/51_bitwise_dotted_ops.code

@@ -0,0 +1 @@
+$x|.$y

t/data/08_regression/51_bitwise_dotted_ops.dump

@@ -0,0 +1,6 @@
+PPI::Document
+  PPI::Statement
+    PPI::Token::Symbol  	'$x'
+    PPI::Token::Operator  	'|.'
+    PPI::Token::Symbol  	'$y'
+  PPI::Token::Whitespace  	'\n'

t/data/08_regression/51b_bitwise_dotted_ops.code

@@ -0,0 +1 @@
+$x|.=$y

t/data/08_regression/51b_bitwise_dotted_ops.dump

@@ -0,0 +1,6 @@
+PPI::Document
+  PPI::Statement
+    PPI::Token::Symbol  	'$x'
+    PPI::Token::Operator  	'|.='
+    PPI::Token::Symbol  	'$y'
+  PPI::Token::Whitespace  	'\n'

t/ppi_token_operator.t

@@ -4,7 +4,7 @@
 
 use lib 't/lib';
 use PPI::Test::pragmas;
-use Test::More tests => 3009 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
+use Test::More tests => 3073 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
 
 use PPI ();
 use PPI::Singletons qw( %KEYWORDS %OPERATOR );