#!/usr/bin/perl

use strict;
use warnings;

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