informalexample.example.1.xml   [plain text]

<?xml version="1.0"?>
<!DOCTYPE informalexample PUBLIC "-//OASIS//DTD DocBook XML V4.1.2//EN" "http://www.oasis-open.org/docbook/xml/4.1.2/docbookx.dtd">
<informalexample><programlisting>
sub print_content_model {
    my($self) = shift;
    local($_) = shift;
    local(*FILE) = shift;

    my(@cm) = $self-&gt;format_content_model2($_);
    foreach $_ (@cm) {
        print FILE $self-&gt;make_links($_, 1, 1), &quot;\n&quot;;
    }
}
</programlisting></informalexample>