Lines Matching refs:line
20 while(my $line = <TEST_DATA>)
22 next if ($line !~ /^\[/);
23 ($val) = ($line =~ /\[$name\s\=\s(\w+)\]/);
34 my $line;
36 while($line = <TEST_DATA>)
38 next if($line !~ /=/);
42 ($val) = ($line =~ /^$name = (\w+)/);
51 my $line;
53 while($line = <TEST_DATA>)
55 next if($line !~ /=/ && $line !~ /FAIL/);
59 ($val) = ($line =~ /^$name = (\w+)/) if ($line =~ /=/);
65 while (my $line = <TEST_DATA>)