XML::XMLWriter::PCData - XML::XMLWriter parsed character data class

XML-XMLWriter documentation

Contained in the XML-XMLWriter distribution.

Index

NAME
- Methods
  - new (@text)
  - get ()

Code Index:

package XML::XMLWriter::PCData
- new
- _get
__END__
EOF

NAME

XML::XMLWriter::PCData - XML::XMLWriter parsed character data class

Methods

new (@text)

@text must be an array of strings.

Every element of @text is parsed and saved. Parsing sofar only means that &, < and > are replaced by their XML entities (&, < and >).

get ()

Returns the strings of parsed character data in an array.

XML-XMLWriter documentation

Contained in the XML-XMLWriter distribution.

######################################################################

package XML::XMLWriter::PCData;
require 5.8.0;

######################################################################

use strict;

######################################################################

######################################################################

sub new {
  my($class, @text) = @_;
  my $self = bless({}, ref($class) || $class);
  for(my $i=0; $i<@text; $i++) {
    $text[$i] =~ s/&/&amp;/g;
    $text[$i] =~ s/</&lt;/g;
    $text[$i] =~ s/>/&gt;/g;
  }
  $self->{data} = \@text;
  return $self;
}

######################################################################

######################################################################

sub _get {
  my($self) = @_;
  return @{$self->{data}};
}

######################################################################

return 1;

__END__