Mercurial > pub > Impl

comparison Lib/IMPL/Serialization/XmlFormatter.pm @ 90:dc1da0389db7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Small improvements in the abstract object class Added support for a class data, documentation Additional tests for the new functionality
author wizard
date Mon, 26 Apr 2010 03:10:03 +0400
parents 16ada169ca75
children 4267a2ac3d46
comparison
equal deleted inserted replaced
89:3d1f584aea60 90:dc1da0389db7
159 return 1; 159 return 1;
160 } 160 }
161 161
162 sub Text { 162 sub Text {
163 my ($this) = shift; 163 my ($this) = shift;
164 $_ = shift; 164 my $text = shift;
165 return 1 if $this->{'Non-Expat-Options'}->{'SkipWhitespace'} and /^\n*\s*\n*$/; 165 return 1 if $this->{'Non-Expat-Options'}->{'SkipWhitespace'} and $text =~ /^\n*\s*\n*$/;
166 $this->{'Non-Expat-Options'}->{'Handler'}->OnObjectData($_); 166 $this->{'Non-Expat-Options'}->{'Handler'}->OnObjectData($text);
167 return 1; 167 return 1;
168 } 168 }
169 169
170 package IMPL::Serialization::XmlFormatter; 170 package IMPL::Serialization::XmlFormatter;
171 use base qw(IMPL::Object); 171 use base qw(IMPL::Object);