Oxygen XML Forum

Code: Select all

<programlistingco>

                <areaspec>

                    <areaset xml:id="ex.plco.const">

                        <area coords="4" xml:id="ex.plco.c1"/>

                        <area coords="8" xml:id="ex.plco.c2"/>

                    </areaset>

                    <area coords="12" xml:id="ex.plco.ret"/>

                    <area coords="12" xml:id="ex.plco.dest"/>

                </areaspec>

                <programlisting>

                    sub do_nothing_useful {

                    my($a, $b, $c);

                    

                    $a = new A;

                    

                    $a->does_nothing_either();

                    

                    $b = new B; 

                    

                    $c = "frog";

                    

                    return ($a, $c);

                    }

                </programlisting>

                <calloutlist>

                    <callout arearefs="ex.plco.const">

                        <para>These are calls to the constructor <function>new</function> in the

                            object classes. </para>

                    </callout>

                    <callout arearefs="ex.plco.ret">

                        <para>This function returns a two-element list. </para>

                    </callout>

                    <callout arearefs="ex.plco.dest">

                        <para>The <emphasis>destructor</emphasis> (<function>DESTROY</function>) for

                            the object <literal>$b</literal> will be called automatically for this

                            object since there can be no other references to it outside this

                            function. </para>

                    </callout>

                </calloutlist>

            </programlistingco>