[NetScript CVS] CVS: netscript2/src/perl/XML/DOM2 PlainXMLDOMWriterStyle.pm,NONE,1.1

[Jan T. <de...@us...>]

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