Select Code to Download

foreach (@items) {
  ...  a lot of perl code ...
...
} else {
  pass("Fancy code passed");
}

$ ./t/test.pl t/DB/SearchPart.t                                       
+    
t/DB/SearchPart....NOK 3                                              
+       
#     Failed test (t/DB/SearchPart.t at line 60)
...
----------------------------------------------------------------------
+---------
t/DB/SearchPart.t    1   256     3    1  33.33%  3
Failed 1/1 test scripts, 0.00% okay. 1/3 subtests failed, 66.67% okay.