The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Plack::MIME;
use Test::More;

Plack::MIME->add_type(".foo" => "text/foo");
is( Plack::MIME->mime_type("bar.foo"), "text/foo" );

Plack::MIME->add_type(".c" => "application/c-source");
is( Plack::MIME->mime_type("FOO.C"), "application/c-source" );

done_testing;