Updated Changes; minor cleanup

Author: Chris White

Changes

@@ -1,12 +1,19 @@
 Revision history for Text-PerlPP
+(Note: GH = GitHub issue; # = RT issue)
+
+0.500.1 2018/05/26
+        Changed code to OOP interface.
+        Updated tests to run more cleanly and more quickly (GH 24; #125326).
+        Version numbers are now in decimal rather than dotted, so this is
+            actually version "0.500001".
 
 0.4.0   2018/05/15
         You can omit `?>` at EOF (#15).
-        Error messages are reported closer to the source line number (#14).
+        Error messages are reported closer to the source line number (GH 14).
 
 0.3.2   2018/05/14
-        Fixes to run on Perl 5.10.1 (#19).
-        Added documentation (#20).
+        Fixes to run on Perl 5.10.1 (GH 19).
+        Added documentation (GH 20).
 
 0.3.1   2018/05/11
         First CPAN version, released on an unsuspecting world.

lib/Text/PerlPP.pm

@@ -13,7 +13,6 @@ use warnings;
 
 use Getopt::Long 2.5 qw(GetOptionsFromArray);
 use Pod::Usage;
-use Data::Dumper;
 
 # === Constants ===========================================================
 
@@ -131,9 +130,6 @@ sub StartOB {
 	if ( scalar @{$self->{OutputBuffers}} == 0 ) {
 		$| = 1;					# flush contents of STDOUT
 		open( $self->{RootSTDOUT}, ">&STDOUT" ) or die $!;		# dup filehandle
-		#$self->{RootSTDOUT} = $fh;
-		#undef $fh;
-		#say STDERR "stdout in startob ", Dumper($self->{RootSTDOUT});
 	}
 	unshift( @{$self->{OutputBuffers}}, [ $mode, "", $lineno ] );
 	close( STDOUT );			# must be closed before redirecting it to a variable
@@ -777,12 +773,7 @@ sub _parse_command_line {
 	# Map the option names from GetOptions back to the internal names we use,
 	# e.g., $hrOptsOut->{EVAL} from $hrOptsOut->{e}.
 	my %revmap = map { $CMDLINE_OPTS{$_}->[0] => $_ } keys %CMDLINE_OPTS;
-	#say "revmap ", Dumper(\%revmap);
-	#say "hrOptsOut ", Dumper($hrOptsOut);
 	for my $optname (keys %$hrOptsOut) {
-		#say "\nOptname $optname";
-		#say "Value $hrOptsOut->{$optname}";
-		#say "Revmap $revmap{$optname}";
 		$hrOptsOut->{ $revmap{$optname} } = $hrOptsOut->{ $optname };
 	}