view release on metacpan or  search on metacpan

scripts/testrail-migrate.pl  view on Meta::CPAN

            @$runs  = grep { $_->{completed_on} && $_->{completed_on} >= $options->{since} } @$runs;
            @$plans = grep { $_->{completed_on} && $_->{completed_on} >= $options->{since} } @$plans;
        }

        foreach my $plan (@$plans) {
            my $planRuns = $tr->getChildRuns($tr->getPlanByID($plan->{id}));
            push(@$runs,@$planRuns);
        }

        foreach my $run (reverse @$runs) {
			unless ($run->{passed_count}         + $run->{failed_count}         + $run->{blocked_count} +
				    $run->{custom_status1_count} + $run->{custom_status2_count} + $run->{custom_status3_count} +
					$run->{custom_status4_count} + $run->{custom_status5_count} + $run->{custom_status6_count} +
					$run->{custom_status7_count}
			) {
				print "Run $run->{id} had no results, skipping...\n";
				next;
			}

			my @documents;
			print "Examining run $run->{id}...\n";