Add syntax of capturing to bin/perlpp POD.

Closes #20.

Author: Chris White

.gitignore

@@ -11,6 +11,7 @@
 *~
 ~*
 *.swp
+*.tmp
 
 # from GitHub's perl .gitignore:
 !Build/

bin/perlpp

@@ -140,6 +140,11 @@ evaluates that script ("eval time") to produce the output.  All Perl code is
 run when the script is evaluated, except for commands notes as occuring at
 generation time.
 
+For double-quotes adjacent to the delimiters, add whitespace between
+the quote and the delimiter.  For example, use C<< <? " >> and C<< " ?> >>
+instead of C<< <?" >> and C<< "?> >>.  The exception is if you want to invoke
+L<capturing|"Capturing">, described below.
+
 =head2 Modes
 
 =over
@@ -214,8 +219,21 @@ C<< <?:elsif NAME CONDITION ?> >> (or C<elif> or C<elseif>).
 
 =head2 Capturing
 
-Description coming soon!  In short, C<< <? print "?>some string<?" ; ?> >>.
-That way you don't have to express long blocks of text as Perl string literals.
+Capturing permits you to express single-quoted strings without having to
+quote and escape.  For example, C<< <? print "?>some $text "string"<?" ; ?> >>
+outputs C<some $text "string"> literally, without substituting C<$text> and
+without the need to escape the double-quotes.  That way you don't have to
+express long blocks of text as Perl string literals.
+
+Capturing can be used anywhere a Perl string expression is valid.
+
+PerlPP commands can be nested within captured strings.  For example,
+running the script
+
+	<?= "!" . "?>foo<?= 42 ?><?" . "bar" ?>
+
+will output C<!foo42bar>.  The C<42> is generated by the nested
+C<< <?= 42 ?> >> expression.
 
 =head1 THE GENERATED SCRIPT
 
@@ -307,4 +325,4 @@ OTHER DEALINGS IN THE SOFTWARE.
 
 =cut
 
-# vi: set ft=perl: #
+# vi: set ft=perl ts=4 sts=0 sw=4 noet ai: #

t/01-readme.t

@@ -1,5 +1,5 @@
 #!/usr/bin/env perl -W
-# Tests from perlpp's README.md
+# Tests from perlpp's README.md and bin/perlpp's POD.
 use strict;
 use warnings;
 use Test::More;
@@ -10,6 +10,8 @@ my ($in, $out, $err);
 
 my @testcases=(		# In the order they are given in README.md
 	# [$in, $out, $err (if any)]
+
+	# === From README.md =====================
 	['<?x this tag is passed as is ?> because "x" is not a valid mode',
 		'<?x this tag is passed as is ?> because "x" is not a valid mode'],
 	[ 	<<'SCRIPT',
@@ -86,6 +88,9 @@ RESULT
 	],
 		# the blank line before "abcd..." is the \n after the first `?>`
 
+	# === From bin/perlpp ====================
+
+	[ '<?= "!" . "?>foo<?= 42 ?><?" . "bar" ?>', '!foo42bar' ],
 ); #@testcases
 
 plan tests => scalar @testcases;