[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP DSML.pm,1.12,1.13

[Graham B. <gb...@us...>]

Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP
In directory usw-pr-cvs1:/tmp/cvs-serv4795/lib/Net/LDAP

Modified Files:
	DSML.pm 
Log Message:
New DSML module that uses XML::SAX


Index: DSML.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/DSML.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- DSML.pm	3 Jan 2002 03:01:14 -0000	1.12
+++ DSML.pm	28 May 2002 07:52:25 -0000	1.13
@@ -1,783 +1,672 @@
-package Net::LDAP::DSML;
-
-#
-# $Id$
-#
 
-# For schema parsing,  add ability to Net::LDAP::Schema to accecpt 
-# a Net::LDAP::Entry object. First
-# we'll convert XML into Net::LDAP::Entry with schema attributes and 
-# then pass to schema object constructor
-# 
[...1316 lines suppressed...]
-=head1 COPYRIGHT
+use vars qw($AUTOLOAD);
 
-Copyright (c) 2000 Graham Barr and Mark Wilcox. All rights reserved. This program is
-free software; you can redistribute it and/or modify it under the same
-terms as Perl itself.
+sub DESTROY {}
 
-=cut
+sub AUTOLOAD {
+  (my $meth = $AUTOLOAD) =~ s/^.*:://;
+  require XML::SAX::Writer;
+  my $self = shift;
+  $self->{handler} = XML::SAX::Writer->new;
+  bless $self, 'Net::LDAP::DSML::pp';
+  $self->$meth(@_);
+}
 
+1;