Select Code to Download

my ($passed,$failed) = (0,0);
my @tests = Test::More->builder->details;
...
    if ($test->{ok}) {$passed++} else {$failed++};
}
diag "Of ".(0+@tests)." tests, $passed passed and $failed failed.";