Began work on pre/postprocessors [minor]

Also, this branch will eventually add a Run() method so you can get a
string result for use in the caller's program without having to use
capture().

Author: Chris White

lib/Text/PerlPP.pm

@@ -667,17 +667,24 @@ sub Include {	# As ProcessFile(), but for use within :macro
 	$self->StartOB();		# re-open a plain-text OB
 } #Include
 
-sub OutputResult {
+sub FinalizeResult {
 	my $self = shift;
 	my $contents_ref = shift;					# reference
-	my $fname = shift;	# "" or other false value => STDOUT
-	my $proc;
-	my $out_fh;
 
-	for $proc ( @{$self->{Postprocessors}} ) {
+	for my $proc ( @{$self->{Postprocessors}} ) {
 		&$proc( $contents_ref );
 	}
+	return $contents_ref;
+} #FinalizeResult()
 
+sub OutputResult {
+	my $self = shift;
+	my $contents_ref = shift;					# reference
+	my $fname = shift;	# "" or other false value => STDOUT
+
+	$self->FinalizeResult( $contents_ref );
+
+	my $out_fh;
 	if ( $fname ) {
 		open( $out_fh, ">", $fname ) or die $!;
 	} else {

t/09-preproc.t

@@ -0,0 +1,4 @@
+#!perl
+
+# TODO test preprocessors
+exit 1;

t/10-postproc.t

@@ -0,0 +1,4 @@
+#!perl
+
+# TODO test postprocessors
+exit 1;