Create SVG badge for GitHub in Perl rather than using img.shields.io

[dboehmer]

On our project page at GitHub https://github.com/dboehmer/coocook we display a set of badges including one badge showing the number of dishes served until today.

From README.md:

[![dishes served](https://coocook.org/badge/dishes_served.svg)](https://coocook.org/statistics)

Current implementation is in Coocook::Controller::Badge, calculates the number and just redirects to a URL at img.shields.io:

https://img.shields.io/badge/dishes_served-40k-blue.svg

This then serves the actual SVG image:

I'd like to create the SVG code on our side and not rely on an external service.

Task:

• search for existing Perl code to create such badges
• if such can't be found write a Coocook::Model::Badge
• make Coocook::Controller::Badge use that
• rewrite t/controller_Badge.t