libxml2/result/DocBook/informalexample.example.1.xml

   1 <?xml version="1.0"?>
   2 <!DOCTYPE informalexample PUBLIC "-//OASIS//DTD DocBook XML V4.1.2//EN" "http://www.oasis-open.org/docbook/xml/4.1.2/docbookx.dtd">
   3 <informalexample><programlisting>\r
   4 sub print_content_model {\r
   5     my($self) = shift;\r
   6     local($_) = shift;\r
   7     local(*FILE) = shift;\r
   8 \r
   9     my(@cm) = $self-&gt;format_content_model2($_);\r
  10     foreach $_ (@cm) {\r
  11         print FILE $self-&gt;make_links($_, 1, 1), &quot;\n&quot;;\r
  12     }\r
  13 }\r
  14 </programlisting></informalexample>