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   26242 use strict;
  46         100  
  46         3438  
3 46     46   269 use warnings;
  46         83  
  46         1490  
4 46     46   1234 use Class::Std::Fast::Storable constructor => 'none', cache => 1;
  46         27973  
  46         343  
5 46     46   7699 use base qw(SOAP::WSDL::XSD::Typelib::Builtin::string);
  46         164  
  46         40484  
6              
7             # replace all \t, \r, \n by \s
8             sub set_value {
9 3     3 0 1689 my $value = $_[1];
10 3 100       20 $value =~ s{ [\r\n\t]+ }{ }xmsg if defined($value);
11 3         38 $_[0]->SUPER::set_value($value);
12             }
13             Class::Std::initialize();
14             1;