Lines Matching refs:verdict
197 my $verdict = ! grep { $disabled_uc{$_} } @features;
203 $verdict = 0 if $config{api} >= $symdep;
204 print STDERR "DEBUG: \$symdep = $symdep, \$verdict = $verdict\n"
209 return $verdict;
223 my $verdict = $weight{$item1->type()} <=> $weight{$item2->type()};
224 if ($verdict == 0) {
225 $verdict = $by_name->($item1, $item2);
227 return $verdict;
239 my $verdict = $by_version->($item1, $item2);
240 if ($verdict == 0) {
241 $verdict = $by_unix->($item1, $item2);
243 return $verdict;