Update of /cvsroot/net-script/netscript2/src/perl/XML/DOM2
In directory usw-pr-cvs1:/tmp/cvs-serv16832
Added Files:
PlainXMLDOMWriterStyle.pm
Log Message:
* new Style just plain converting DOM to XML with no specialties
--- NEW FILE: PlainXMLDOMWriterStyle.pm ---
#--------------------------------------------------------
# DOM Level 2 Implementation for Perl
# $Id: PlainXMLDOMWriterStyle.pm,v 1.1 2002/08/21 10:36:51 derkork Exp $
#
# DOM2 and all related materials, such as documentation,
# are protected under the terms and conditions of the Artistic License.
# (C) 2000-2002 by Jan Thomä, insOMnia
# mailto: ko...@in...
#--------------------------------------------------------
use strict;
package XML::DOM2::PlainXMLDOMWriterStyle;
use base qw(XML::DOM2::XMLDOMWriterStyle);
#--------------------------------------------------------
# Methods
#--------------------------------------------------------
#/**
# Creates a new PlainXMLDOMWriterStyle. This style produces XML for each Node.
# However it does not provide any XML semantics (especially no <?xml ?> PI)
# @return an instance of XML::DOM2::DOMWriter
# @public
#*/
sub new {
my ($proto) = shift;
my $class = ref( $proto ) || $proto;# get the Classname
# Create a Class using the Hash-As-An-Object-Idiom
my $this = $class -> SUPER::new();
return $this;
}
#/**
# Initialises the DOMWriterStyle.
# @public
#*/
sub init {
my ($this) = @_;
$this -> clear();
}
1; # make require happy
|
