Lines Matching refs:verdict
198 my $verdict = ! grep { $disabled_uc{$_} } @features;
204 $verdict = 0 if $config{api} >= $symdep;
205 print STDERR "DEBUG: \$symdep = $symdep, \$verdict = $verdict\n"
210 return $verdict;
224 my $verdict = $weight{$item1->type()} <=> $weight{$item2->type()};
225 if ($verdict == 0) {
226 $verdict = $by_name->($item1, $item2);
228 return $verdict;
240 my $verdict = $by_version->($item1, $item2);
241 if ($verdict == 0) {
242 $verdict = $by_unix->($item1, $item2);
244 return $verdict;
