File Coverage

blib/lib/SOAP/WSDL/XSD/Typelib/Builtin/normalizedString.pm
Criterion Covered Total %
statement 15 15 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 22 23 95.6


line stmt bran cond sub pod time code
1             package SOAP::WSDL::XSD::Typelib::Builtin::normalizedString;
2 46     46   14568 use strict;
  46         48  
  46         1192  
3 46     46   171 use warnings;
  46         44  
  46         1031  
4 46     46   631 use Class::Std::Fast::Storable constructor => 'none', cache => 1;
  46         17986  
  46         230  
5 46     46   4678 use base qw(SOAP::WSDL::XSD::Typelib::Builtin::string);
  46         69  
  46         15907  
6              
7             # replace all \t, \r, \n by \s
8             sub set_value {
9 3     3 0 989 my $value = $_[1];
10 3 100       13 $value =~ s{ [\r\n\t]+ }{ }xmsg if defined($value);
11 3         21 $_[0]->SUPER::set_value($value);
12             }
13             Class::Std::initialize();
14             1;