Me : XML::Filter::OTLML::IO.pm

my $outline = "/path/to/io.otlml";



my $output  = IO::File->new("+<$outline");



my $writer  = XML::SAX::Writer->new(Output=>$output);



my $filter  = XML::Filter::OTLML::IO->new(Handler=>$writer);



my $parser  = XML::SAX::ParserFactory->parser(Handler=>$filter);







$parser->parse_uri($outline);



 

Still tracking down a bug where data at the end of the document sometimes (?!) gets printed twice. I might also "bless" the widget as a Handler -- this is the other part about SAX that I don't like: all these names! -- that writes to a file handle and to STDOUT so that it can be easily plugged into a pipeline. It will all have to wait until later, though since the "step away from the computer" police have arrived. I may release a tarball tomorrow, warts and all, and see what kind of feedback I get...