Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use XML::Writer::Nest;
- use strict;
- use warnings;
- my $writer = new XML::Writer;
- my $level1 = XML::Writer::Nest->new(tag => 'level1', writer => $writer );
- my $level2 = $level1->nest ('level2');
- my $level3 = $level1->nest('level3');
- #### CONTROL ORDER OF DESTRUCTION
- { my $level1 = XML::Writer::Nest->new(tag => 'level1', writer => $writer );
- { my $level2 = $level1-> nest ('level2');
- {
- my $level3 = $level2->nest('level3');
- }
- }
- }
Add Comment
Please, Sign In to add comment