| Subject: | Cryptic Error on uninitilized value |
The following error his happening with Pod::WSDL when I run the following code in my enviroment. In my poking around I found that the $ownType value was not being set in as far back as I could trace it from the error line below.
ERROR
Use of uninitialized value in concatenation (.) or string at /Library/Perl/5.8.6/Pod/WSDL/Utils.pm line 104.
Can't call method "wsdlName" on an undefined value at /Library/Perl/5.8.6/Pod/WSDL/Utils.pm line 111.
ENV
MAC OS X 10.4.3
perl v5.8.6
CODE
-- WSDL.pl --
#!/usr/bin/perl
use Pod::WSDL;
use lib qw( . /Sites );
use AIQ::Result;
use Data::Dumper;
my $pod = new Pod::WSDL(source => 'My::Foo',
location => 'http://localhost/My/Server',
pretty => 1);
print Dumper($pod);
print $pod->WSDL;
-- My/Foo.pm --
package My::Foo;
=begin WSDL
_RETURN $My::Bar
=end WSDL
sub None {}
1;
-- My/Bar.pm --
package My::Bar;
=begin WSDL
_ATTR foo $string
_ATTR bar $string
=end WSDL
1;