| 7 |
# $Id$ |
# $Id$ |
| 8 |
# |
# |
| 9 |
# $Log$ |
# $Log$ |
| 10 |
|
# Revision 1.2 2003/12/05 05:05:53 joko |
| 11 |
|
# + minor fix - use IO::File instead if plain IO |
| 12 |
|
# |
| 13 |
# Revision 1.1 2003/05/06 14:36:48 joko |
# Revision 1.1 2003/05/06 14:36:48 joko |
| 14 |
# initial commit - preliminary (didn't work out as expected) |
# initial commit - preliminary (didn't work out as expected) |
| 15 |
# |
# |
| 178 |
# V2 - using the classic XML::Parser together with its companion, XML::Writer |
# V2 - using the classic XML::Parser together with its companion, XML::Writer |
| 179 |
if ($self->{options}->{engine} eq "XMLParser") { |
if ($self->{options}->{engine} eq "XMLParser") { |
| 180 |
|
|
| 181 |
use IO; |
use IO::File; |
| 182 |
my $output = IO::File->new(">output.xml"); |
my $output = IO::File->new(">output.xml"); |
| 183 |
|
|
| 184 |
# These return instances which are not required. => overhead! |
# These return instances which are not required. => overhead! |