import SOAP-WSDL 2.00.07 from CPAN

git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00.07
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.07.tar.gz

t/CodeFirst/ComplexType.pm

@@ -0,0 +1,77 @@
+package ComplexType;
+use strict; use warnings;
+use lib '.';
+our $VERSION = 0.1;
+use base qw(SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType);
+
+sub get_xmlns { 'http://www.w3.org/XMLSchema2001' }
+sub __get_attr_class { 'ComplexType::_ATTR' }
+__PACKAGE__->__set_name('ComplexType');
+
+my %sequence_of :ATTR(:name<sequence> :default<()>);
+
+__PACKAGE__->_factory(
+    [   'sequence'    ],
+    {
+        sequence => \%sequence_of,
+    },
+    {
+        sequence => 'sequence',
+    },
+    {
+        sequence => 'sequence',
+    },
+
+);
+
+package ComplexType::_ATTR;
+use base qw(SOAP::WSDL::XSD::Typelib::AttributeSet);
+
+my %name_of :ATTR(:name<name> :default<()>);
+
+__PACKAGE__->_factory(
+    [ 'name' ],
+    {
+        name => \%name_of
+    },
+    {
+        name => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    },
+    {
+        name => 'name',
+    }
+);
+
+1;
+use sequence;
+use element;
+
+my $foo = element->new({
+    xmlattr => {
+        name => 'foo',
+        type => 'string'
+    }
+});
+
+my $bar = element->new({
+    xmlattr => {
+        name => 'bar',
+        type => 'string',
+    },
+
+});
+
+my $type = ComplexType->new({
+    xmlattr => { name => 'Test' },
+    sequence => {
+        element => [ $foo, $bar ],
+    }
+});
+
+
+print $type->serialize_qualified(), "\n";
+
+use Data::Dumper;
+print Dumper $type->as_hash_ref();
+

t/CodeFirst/element.pm

@@ -0,0 +1,43 @@
+package element;
+use strict; use warnings;
+our $VERSION = 0.1;
+use base qw(SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType);
+
+sub get_xmlns { 'http://www.w3.org/XMLSchema2001' }
+sub __get_attr_class { 'element::_ATTR' }
+__PACKAGE__->__set_name('element');
+
+__PACKAGE__->_factory();
+
+package element::_ATTR;
+use strict; use warnings;
+our $VERSION = 0.1;
+use base qw(SOAP::WSDL::XSD::Typelib::AttributeSet);
+
+my %name_of :ATTR(:name<name> :default<()>);
+my %type_of :ATTR(:name<type> :default<()>);
+my %ref_of :ATTR(:name<ref> :default<()>);
+
+__PACKAGE__->_factory(
+    [ 'name' , 'type', 'ref' ],
+    {
+        'name' => \%name_of,
+        'ref' => \%ref_of,
+        'type' => \%type_of,
+    },
+    {
+        'name' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        'type' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+        'ref' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
+    },
+    {
+        name => 'name',
+        type => 'type',
+        'ref' => 'ref'
+    }
+);
+
+1;
+
+1;

t/CodeFirst/sequence.pm

@@ -0,0 +1,28 @@
+package sequence;
+use strict; use warnings;
+our $VERSION = 0.1;
+
+use base qw(SOAP::WSDL::XSD::Typelib::Element
+    SOAP::WSDL::XSD::Typelib::ComplexType);
+
+sub get_xmlns { 'http://www.w3.org/XMLSchema2001' }
+
+__PACKAGE__->__set_name('sequence');
+
+my %element_of :ATTR(:name<element> :default<()>);
+
+__PACKAGE__->_factory(
+    ['element'],
+    {
+        element => \%element_of,
+    },
+    {
+        element => 'element',
+    },
+    {
+        element => 'element',
+    }
+
+);
+
+1;

t/CodeFirst/test.pl

@@ -0,0 +1,30 @@
+package testCodeFirst;
+use strict; use warnings;
+our $VERSION = 0.1;
+use lib '../lib';
+use base q{CodeFirst};
+
+sub test :WebMethod(
+		action => "test",
+		returns => "bar",
+		header => "bam",
+		body => "baz"
+	) {
+
+}
+
+sub test2 :WebMethod(
+		action => "test2",
+		returns => "bar",
+		header => "bam",
+		body => "baz"
+	) {
+}
+
+package main;
+use Data::Dumper;
+my $test = testCodeFirst->new();
+# print Dumper $test->_action_map;
+
+print Dumper $test->get_transport()->get_action_map_ref();
+1;