Lines Matching refs:a1
8 my $a1 = new Pod::WSDL::Doc();
14 my $a1 = new Pod::WSDL::Doc('blah blah ...');
19 my $a1 = new Pod::WSDL::Doc('_DOC blah blah ...');
21 ok($a1->descr eq 'blah blah ...', 'Read descr correctly from input');
23 $a1 = new Pod::WSDL::Doc(' _DOC blah blah ...');
24 ok($a1->descr eq 'blah blah ...', 'Handles whitespace before _DOC correctly.');
26 $a1 = new Pod::WSDL::Doc('_DOC');
27 ok($a1->descr eq '', 'No description is handled correctly');
29 $a1->descr('more blah');
30 ok($a1->descr eq 'more blah', 'Setting description works');