File Coverage

blib/lib/SOAP/WSDL/XSD/Typelib/Builtin/list.pm
Criterion Covered Total %
statement 13 13 100.0
branch 6 6 100.0
condition n/a
subroutine 3 3 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::list;
2 38     38   520 use strict;
  38         42  
  38         1001  
3 38     38   124 use warnings;
  38         40  
  38         3499  
4              
5             sub serialize {
6 8     8 0 1735 my ($self, $opt) = @_;
7 8 100       24 $opt = {} if not $opt;
8 8         32 my $value = $self->get_value();
9 8 100       53 return $self->start_tag({ %$opt, nil => 1 }) if not defined $value;
10 6 100       15 $value = [ $value ] if not ref $value;
11 6         63 return join q{}, $self->start_tag($opt, $value)
12 6         57 , join( q{ }, @{ $value } )
13             , $self->end_tag($opt, $value);
14             }
15             1;
16              
17             __END__