view release on metacpan or  search on metacpan

bin/cpan_cover_badge  view on Meta::CPAN

if ( -e $config->to_string ) {
    plugin 'Config';
}

get '/*dist' => sub {
    my ($c) = @_;

    my $dist = $c->param('dist');

    if ( ! eval { $check->( $dist ) } ) {
        return $c->reply->not_found;
    }

    my $badge = $badger->badge( $dist );
    $c->render( data => $badge, format => 'svg' );
};

app->start;

__END__