##
my $twig =
XML::Twig->new(
start_tag_handlers => {
'UML:Class' => \¨_class_start,
'UML:Package' => \¨_package_start,
},
twig_handlers => {
# purge at the end of each class section
'UML:Class' => sub { $_[0]->purge },
'UML:Attribute' => \¨_attribute,
'UML:Generalization' => \¨_generalization,
'UML:TaggedValue' => \¨_taggedvalue,
},
);
####
my $xmi_id = $elt->att( 'xmi.id' );
my $name = $elt->att( 'name' );