ossp-pkg/string-divert/Divert.pod 1.7 -> 1.8
--- Divert.pod 2005/11/16 10:54:17 1.7
+++ Divert.pod 2005/11/16 12:08:49 1.8
@@ -263,10 +263,13 @@
=item SAPI: C<$y = $x-E<gt>>B<folding>C<($name);>
+=item SAPI: C<@y = $x-E<gt>>B<folding>C<();>
+
=item XAPI: C<$y = ($x E<lt>E<lt>= $name);>
I<Content Folding Lookup>. This lookups in string object C<$x> the
-contained folding sub-object with name C<$name>.
+contained folding sub-object with name C<$name>. If C<$name> is not
+specified, it returns a list of all folding sub-objects.
=item SAPI: C<$x-E<gt>>B<folder>C<($format, $regex);>
@@ -359,14 +362,9 @@
" " . $html->folder("body") .
" </body>\n" .
"</html>\n";
-
- # generate header
- $html >> "head";
- $html .= "<title>foo</title>\n";
- $html << 1;
+ $html >> "body";
# generate body
- $html >> "body";
$html .= "<table>\n" .
" <tr>\n" .
" <td>\n" .
@@ -378,15 +376,22 @@
" </tr>\n" .
"</table>\n";
+ # generate header
+ $html >> "head";
+ $html .= "<title>foo</title>\n";
+ $html << 1;
+
# generate left contents
$html >> "left";
$html .= "bar1\n" .
"bar2\n";
+ $html << 1;
# generate right contents
$html >> "right";
$html .= "quux1\n" .
"quux2\n";
+ $html << 1;
# undivert all diversions and output unfolded HTML
$html << 0;
|
|
