#!/usr/bin/perl

use strict;
use warnings;

use Pod::WSDL;
my $pod = new Pod::WSDL(source => "./Demo2.pm",
        location => 'http://localhost/test/soap',
        pretty => 1,
        withDocumentation => 1);
print( $pod->WSDL );

##</code><code>##

package Demo2;

use XML::Generator::DBI;
use XML::Handler::YAWriter;
use DBI;

 =begin WSDL

        _IN hi $string A foo
        _DOC This is a test soap web service that prints a list of the current DBAs
        _RETURN $string Returns a string containing the current DBAs

 =end WSDL

sub hi {
        my $out_xml = "hi";
        my $ya = XML::Handler::YAWriter->new();

        #  Stuff

        return $out_xml;
}

1;

##</code><code>##

<?xml version="1.0" encoding="UTF-8"?>
<!-- WSDL for http://localhost/test/soap created by Pod::WSDL version: 0.05 on Tue Jul 17 20:51:42 2007 -->
<wsdl:definitions targetNamespace="http://localhost/Demo" xmlns:impl="http://localhost/Demo" xmlns:wsdlsoap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:tns1="http://localhost/Demo">

        <wsdl:portType name="DemoHandler">
        </wsdl:portType>

        <wsdl:binding name="DemoSoapBinding" type="impl:DemoHandler">
                <wsdlsoap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http" />

        </wsdl:binding>

        <wsdl:service name="DemoHandlerService">
                <wsdl:port binding="impl:DemoSoapBinding" name="Demo">
                        <wsdlsoap:address location="http://localhost/test/soap" />
                </wsdl:port>
        </wsdl:service>

</wsdl:definitions>