File Coverage

blib/lib/SOAP/WSDL/XSD/Builtin.pm

Criterion	Covered	Total	%
statement	24	32	75.0
branch	2	8	25.0
condition	3	6	50.0
subroutine	5	5	100.0
pod	0	1	0.0
total	34	52	65.3

package SOAP::WSDL::XSD::Builtin;
use strict;
use warnings;
use Class::Std::Fast::Storable;
use base qw(SOAP::WSDL::Base);

our $VERSION = $SOAP::WSDL::VERSION;

# only used in SOAP::WSDL - will be obsolete once SOAP::WSDL uses the
# generative approach, too

sub serialize {
    my ($self, $name, $value, $opt) = @_;
    my $xml;
    $opt->{ indent } ||= "";
    $opt->{ attributes } ||= [];

    $xml .= $opt->{ indent } if ($opt->{ readable });
    $xml .= '<' . join ' ', $name, @{ $opt->{ attributes } };
    if ( $opt->{ autotype }) {
        my $ns = $self->get_targetNamespace();
        my %prefix_of = reverse %{ $opt->{ namespace } };
        my $prefix = $prefix_of{ $ns }
            || die 'No prefix found for namespace '. $ns;
        $xml .= ' type="' . $prefix . ':'
          . $self->get_name() . '"';
    }

    if (defined $value) {
        $xml .= '>';
        $xml .= "$value";
        $xml .= '' ;
    }
    else {
        $xml .= '/>';
    }
    $xml .= "\n" if ($opt->{ readable });
    return $xml;
}

1;