Lines Matching refs:a1
8 my $a1 = new Pod::WSDL::Return();
14 my $a1 = new Pod::WSDL::Return('$string blah blah ...');
20 my $a1 = new Pod::WSDL::Return('_RETURN string blah blah ...');
25 my $a1 = new Pod::WSDL::Return('_RETURN $string blah blah ...');
27 ok($a1->type eq 'string', 'Read type correctly from input');
28 ok($a1->array == 0, 'Read scalar type correctly from input');
29 ok($a1->descr eq 'blah blah ...', 'Read descr correctly from input');
31 $a1 = new Pod::WSDL::Return(' _RETURN $string blah blah ...');
32 ok($a1->type eq 'string', 'Handles whitespace before _RETURN correctly.');
34 $a1 = new Pod::WSDL::Return('_RETURN @string blah blah ...');
35 ok($a1->array == 1, 'Read array type correctly from input');
37 $a1 = new Pod::WSDL::Return('_RETURN @string');
38 ok($a1->descr eq '', 'No description is handled correctly');
41 $a1->type('foo');