- foreach my $dle ($report->get_dles()) {
-
- my $dle_info = $report->get_dle_info(@$dle);
- my $tries = $dle_info->{tries};
-
- foreach my $try (@$tries) {
-
- foreach my $program (keys %$try) {
-
- $process_stranges++ if $try->{$program}{status} eq 'strange';
- $process_fails++ if $try->{$program}{status} eq 'fail';
- }
- }
- }
-