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 48     48   27033 use strict;
  48         105  
  48         1523  
3 48     48   339 use warnings;
  48         89  
  48         1379  
4 48     48   1377 use Class::Std::Fast::Storable constructor => 'none', cache => 1;
  48         31241  
  48         352  
5 48     48   6582 use base qw(SOAP::WSDL::XSD::Typelib::Builtin::string);
  48         111  
  48         32319  
6              
7             # replace all \t, \r, \n by \s
8             sub set_value {
9 3     3 0 1659 my $value = $_[1];
10 3 100       18 $value =~ s{ [\r\n\t]+ }{ }xmsg if defined($value);
11 3         31 $_[0]->SUPER::set_value($value);
12             }
13             Class::Std::initialize();
14             1;