File Coverage

blib/lib/SOAP/WSDL/Generator/PrefixResolver.pm

Criterion	Covered	Total	%
statement	9	15	60.0
branch	0	2	0.0
condition	0	3	0.0
subroutine	3	4	75.0
pod	1	1	100.0
total	13	25	52.0

package SOAP::WSDL::Generator::PrefixResolver;
use strict; use warnings;

use Class::Std::Fast::Storable;

our $VERSION = 3.003;

my %namespace_prefix_map_of :ATTR(:name   :default<{}>);
my %namespace_map_of        :ATTR(:name          :default<{}>);
my %prefix_of               :ATTR(:name :default<{}>);

sub resolve_prefix {
    my ($self, $type, $namespace, $element) = @_;
    my $prefix;
    if (not defined($namespace)) {
        $prefix = $prefix_of{ $$self }->{ $type }
    }
    else {
        $prefix = $namespace_prefix_map_of{ $$self }->{ $namespace }
            || ( ($namespace_map_of{ $$self }->{ $namespace })
                ? join ('::', $prefix_of{ $$self }->{ $type }, $namespace_map_of{ $$self }->{ $namespace })
                : $prefix_of{ $$self }->{ $type }
            );
    }
    return "${prefix}::";
}

1;

__END__