sub uml_class { my ( $twig, $section ) = @_; $section->print (); } ##

##

sub uml_class
{
    my ( $twig, $section ) = @_;
    my $xml = $section->sprint ();
    my $subTwig = XML::Twig->new ( twig_roots => { 'uml:attribute' => \¨_attr});
    
    $subTwig->parse ($xml);
}

sub uml_attr {
    my ($twig, $elt) = @_;
    
    $elt->print ();
    print "\n";
}

##

##