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"; } ####