Lines Matching refs:a1
8 my $a1 = new Pod::WSDL::Fault();
14 my $a1 = new Pod::WSDL::Fault('blah blah ...');
20 my $a1 = new Pod::WSDL::Fault('_FAULT My::Fault blah blah ...');
25 my $a1 = new Pod::WSDL::Fault('_FAULT My::Fault blah blah ...');
27 ok($a1->wsdlName eq 'MyFault', 'Read wsdl name correctly from input');
28 ok($a1->type eq 'My::Fault', 'Read type correctly from input');
29 ok($a1->descr eq 'blah blah ...', 'Read descr correctly from input');
31 $a1 = new Pod::WSDL::Fault(' _FAULT My::Fault blah blah ...');
32 ok($a1->wsdlName eq 'MyFault', 'Handles whitespace before _FAULT correctly.');
34 $a1 = new Pod::WSDL::Fault('_FAULT My::Fault');
35 ok($a1->descr eq '', 'No description is handled correctly');
38 $a1->type('foo');