Class::DBI::ToSax - turn database objects to SAX events
package My::DBI; # NB! Must come first in inheritance chain! use base qw( Class::DBI::ToSax Class::DBI ); # In the application... use XML::SAX::Writer; my $obj = My::DBI->retrieve( $x ); my $w = XML::SAX::Writer->new; $obj->to_sax( $w );
This module adds an extra method to Class::DBI, to_sax(). All the usual sorts of SAX handler can be passed in. The example above shows a writer to send the XML to stdout.
NB: This class must come first in the inheritance chain because it overrides ordinary Class::DBI methods.
The generated XML will have:
Transform the object into XML via SAX events on HANDLER. OPTS may be a series of key value pairs. Valid keys include:
If true, do not recursively call contained objects. There will still be an element for the contained object, but it will only contain an id attribute.
Optionally, the value of norecurse may be set to a hash ref, in which case, each key will be the name of a table which is not to be recursed into. This can be used to avoid retrieveing too much data from the database when it is not needed.
If norecurse is set to a coderef, then it will be called. It is expected to return a true value if it wants recursion stopped at that point. It will be passed a list of objects back up to the original caller in order to help it make its decision.
If true, then do not call start_document() and end_document(). This lets you insert a stream of SAX events for your Class::DBI objects into another stream of SAX events.
We should be able to flag some fields as containing CDATA. I'm not sure of the best interface to do this, however.
Dominic Mitchell, <email@example.com<gt>
Copyright 2003 by semantico
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.