1#!/usr/bin/perl 2 3use strict; 4use warnings; 5use Pod::WSDL; 6 7my $p = new Pod::WSDL(source => 'My::AxisTest', 8 location => 'http://localhost/My/AxisTest', 9 pretty => 1, 10 withDocumentation => 1); 11 12print $p->WSDL; 13