Select Code to Download

my @details = Test::More->builder->details;
while (my ($i,$t) = each @details) {
    next unless $$t{type} eq 'todo' && $$t{actual_ok};
    diag "Passing TODO Test #".($i+1)." / $$t{name}";
}