File Coverage

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

Criterion	Covered	Total	%
statement	30	30	100.0
branch	2	4	50.0
condition			n/a
subroutine	20	20	100.0
pod	15	16	93.7
total	67	70	95.7

package SOAP::WSDL::Generator::Visitor;
use strict;
use warnings;
use Class::Std::Fast::Storable;

use version; our $VERSION = qv('3.001');

my %definitions_of :ATTR(:name :default<()>);
my %type_prefix_of :ATTR(:name :default<()>);
my %element_prefix_of :ATTR(:name :default<()>);

sub START {
    my ($self, $ident, $arg_ref) = @_;
    $type_prefix_of{ $ident } = 'MyType' if not exists
        $arg_ref->{ 'type_prefix' };
    $element_prefix_of{ $ident } = 'MyElement' if not exists
        $arg_ref->{ 'element_prefix' };

}


# WSDL stuff
sub visit_Definitions {}
sub visit_Binding {}
sub visit_Message {}
sub visit_Operation {}
sub visit_OpMessage {}
sub visit_Part {}
sub visit_Port {}
sub visit_PortType {}
sub visit_Service {}
sub visit_SoapOperation {}
sub visit_Types {}

# XML Schema stuff
sub visit_XSD_Schema {}
sub visit_XSD_ComplexType {}
sub visit_XSD_Element {}
sub visit_XSD_SimpleType {}

1;

__END__