=head1 NAME

XML::DB - emulate a native xml database using DBI

=head1 SYNOPSIS

=head1 DESCRIPTION

Ehrm... ;)

=head1 FUNCTIONS

=head1 SEE ALSO

=head1 AUTHOR

This perl extension was written by Marc Lehmann <pcg@goof.com>

=head1 BUGS

=cut

package XML::DB;

sub dk($) {
   my $x = unpack "H*", $_[0];
   $x =~ y/a-z/A-Z/;
   $x;
}

use XML::Parser;
use PApp::SQL;

#require Exporter;
BEGIN {
   $VERSION = 0.01;

   use base DynaLoader;

   bootstrap XML::DB $VERSION;
}

sub new {
   my $class = shift;
   bless { @_ }, $class;
}

sub new_xml_insert_parser {
   my $did = 55;
   my $n = 1;

   my @children = ([]);

   new XML::Parser
      NameSpaces => 1,
      NoExpand   => 1,
      Handlers   => {
         Char => sub {
            push @{$children[-1]}, ['pcdata', $_[1]];
         },
         Start => sub {
         },
         End => sub {
         },
      },
      @_,
   ;
}

1;