Sort modules by workingness

formatter

@@ -9,4 +9,20 @@ my $json  = do { local $/; <$fh> };
 close $fh;
 
 my $results = Mojo::JSON->new->decode($json);
-$mt->render_file_to_file('template.tt', 'index.html', $results);
+
+sub sortsub {
+    ($a, $b);
+
+    if ($results->{$a}{'test'} == $results->{$b}{'test'}) {
+        return lc $a cmp lc $b;
+    }
+
+    if ($results->{$a}{'test'} == 0) {
+        return 1
+    }
+
+    return -1
+}
+
+my @list    = sort { sortsub @_ } grep { !/^_/ } keys %$results;
+$mt->render_file_to_file('template.tt', 'index.html', $results, \@list);

template.tt

@@ -75,10 +75,10 @@
         </thead>
         <tbody>
 
-% my $results = shift;
+% my ($results, $list) = @_;
 % my ($ok, $fail, $total);
 % my $stats = delete $results->{_statistics};
-% for my $module (sort { lc $a cmp lc $b } keys $results) {
+% for my $module (@$list) {
     <tr><td style="border-bottom:1px dotted #98CAEB">
             <a href="#"><%= $module %></a>
         </td>