view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

 - Fix spelling mistakes (Gregor Herrmann) (GH-171)
 - Fix condition coverage for complex conditions (Heinz Knutzen) (GH-165)
 - Use JSON::MaybeXS for sppen and flexibility (Olivier Mengué) (GH-139)
 - Add CONTRIBUTING file (Gabor Szabó) (GH-100)

1.24 - 18 April 2017
 - Work with 5.25.x (op_sibling) (Dan Collins, Matthew Horsfall) (GH-162)
 - Perl versions below 5.10.0 are now unsupported

1.23 - 24 April 2016
 - Enhance html coverage popups (Haydn Newport) (GH-156)
 - Add cpancover about page (Guillermo O. Freschi) (GH-146)
 - Perl versions below 5.8.1 are now unsupported

1.22 - 9 April 2016
 - Test against 5.20.3, 5.23.1 - 5.23.9, 5.22.1
 - Improve uncoverable docs (Alex Balhatchet) (GH-148)
 - Improve cpancover

1.21 - 20 September 2015
 - Test more versions on travis

lib/Devel/Cover/Report/Html_minimal.pm  view on Meta::CPAN

    my $url = get_link($file);
    if ($url) {
      print $fh qq'<tr><td align="left"><a href="$url">$file</a></td>';
    } else {
      print $fh qq'<tr><td align="left">$file</td>';
    }

    for my $c (@$show) {
      my $pc = $summary->{$c}{percent};
      my ($class, $popup, $link);

      if ($pc eq 'n/a' || $c eq 'time') {
        $class = $popup = '';
      } else {
        $class = sprintf(qq' class="%s"', pclass($pc, $summary->{$c}{error}));
        $popup = sprintf(qq' title="%s"', $c . ': ' . $summary->{$c}{ratio});
        if ($c =~ /branch|condition|subroutine/) {
          $link = get_link($file, $c);
        }
      }

      if ($link) {
        printf $fh qq'<td%s%s><a href="%s">%s</a></td>', $class, $popup, $link,
          $pc;
      } else {
        printf $fh qq'<td%s%s>%s</td>', $class, $popup, $pc;
      }
    }
    print $fh "</tr>\n";
  }
  print $fh "</table>\n</body>\n</html>\n";
  close($fh) or warn "Unable to close '$outfile' [$!]";

  print "HTML output written to $outfile\n" unless $options->{silent};
}