Lines Matching refs:a1
8 my $a1 = new Pod::WSDL::Param();
14 my $a1 = new Pod::WSDL::Param('myParam $string blah blah ...');
20 my $a1 = new Pod::WSDL::Param('_IN myParam string blah blah ...');
25 my $a1 = new Pod::WSDL::Param('_IN myParam $string blah blah ...');
27 ok($a1->name eq 'myParam', 'Read name correctly from input');
28 ok($a1->type eq 'string', 'Read type correctly from input');
29 ok($a1->paramType eq 'IN', 'Read in type correctly from input');
30 ok($a1->array == 0, 'Read scalar type correctly from input');
31 ok($a1->descr eq 'blah blah ...', 'Read descr correctly from input');
33 $a1 = new Pod::WSDL::Param(' _IN myParam $string blah blah ...');
34 ok($a1->name eq 'myParam', 'Handles whitespace before _IN correctly.');
36 $a1 = new Pod::WSDL::Param('_IN myParam @string blah blah ...');
37 ok($a1->array == 1, 'Read array type correctly from input');
39 $a1 = new Pod::WSDL::Param('_IN myParam @string');
40 ok($a1->descr eq '', 'No description is handled correctly');
42 $a1 = new Pod::WSDL::Param('_OUT myParam @string');
43 ok($a1->paramType eq 'OUT', 'Read in type correctly from input');
45 $a1 = new Pod::WSDL::Param('_INOUT myParam @string');
46 ok($a1->paramType eq 'INOUT', 'Read inout type correctly from input');
49 $a1->name('foo');