use warnings NONFATAL => 'all';
no warnings 'illegalproto';
-no if $] >= 5.017011, warnings => 'experimental::smartmatch';
##################################################
pas => 'text/x-pascal',
pl => 'text/x-perl',
py => 'text/x-python',
+ l => 'text/plain',
};
use constant FORMAT_EXTENSION => {
PASCAL => 'pas',
PERL => 'pl',
PYTHON => 'py',
+ SBCL => 'l',
};
use constant NOT_FOUND => [404, ['Content-Type' => 'text/plain'], ['Not found']];