sub directive_doc()

in review_translations.pl [71:93]

• 19 lines of code
• 3 McCabe index (conditional complexity)

sub directive_doc {
    my ($d, $eng_xml) = @_;

    print "<directivesynopsis>\n";
    print "<name>" . $d . "</name>\n";
    print "<description>" .
        $eng_xml->{directivesynopsis}->{$d}->{description} .
        "</description>\n";
    print "<contextlist>";

    # If there's only one context, this is a scalar, not an arrayref.
    if ( !ref( $eng_xml->{directivesynopsis}->{$d}->{contextlist}->{context}) ) {
        $eng_xml->{directivesynopsis}->{$d}->{contextlist}->{context} 
            = [ $eng_xml->{directivesynopsis}->{$d}->{contextlist}->{context} ]
    }

    foreach my $c ( @{ $eng_xml->{directivesynopsis}->{$d}->{contextlist}->{context} } ) {
        print "<context>".$c."</context>";
    }
    print "</contextlist>\n";
    print "<usage><p>Documentation not yet translated. Please see English version of document.</p></usage>\n";
    print "</directivesynopsis>\n\n";
}