NAME uSAC::MIME - MIME Type database with concise lookups SYNOPSIS use uSAC::MIME; #Create a new DB using inbuild data my $db=uSAC::MIME->new; #Database with no entries my $db=uSAC::MIME->new_empty; #Create data base from contents of file my $db=uSAC::MIME->new_from_file("path_to_nginx_or_apache_mime"); #Create default from internal database and then add a custom entry my $db=uSAC::MIME->new("xyz"=>"special/type"); #Add a custom entry to an existing database $db->add("abc"=>"another/type"); #Remove a file extension from a mime type $db->rem("abc"=>"another/type"); #Index the database. Forward only mapping in scalar context my $forward=$db->index; #Index the database. Forward and reverse mapping in list context my ($forward,$reverse)=$db->index; #Do Lookups $forward->{txt}; #return "text/plain" $backward->{"text/plain"}; #returns a array ref of extension DESCRIPTION Provides concise file extension to MIME type (forward) mapping and MIME type to file extension set (backwards) mapping. Features include: Internal Default Database Internally it has its own MIME database source, however when you create a new instance you receive a copy which you can add or remove entries as you please. Load and Save from file An external MIME type database in nginx or Apache formats can be used to create an instance Low overhead The database in indexed into a anonymous hash ref for direct lookup Motivation Performance. The indexed database is a straight perl hash so no method or subroutine overheads. When responding to as many HTTP requests as possible, this seemed like easy pickings to improve performance. What this module doesn't do It is not a general purpose MIME type manipulator or generator. Module such as MIME::Type more suited for that purpose. It also doesn't export and lookup methods/subs. All lookups are done via the hashes returned from calling the "index" method File paths are not really handled. You need to split them off before hand. API Constructors "new(%mappings_to_add)" Creates a new mime database from the internal database. Adds the optional mappings to it The "index" method needs to be called on the returned object to perform lookups "new_empty(%mappings_to_add)" Creates a new empty database. Adds the optional mappings to it The "index" method needs to be called on the returned object to perform lookups File IO "load_from_handle" Reads the contents of a handle and adds it to the db "save_to_handle" Writes out the DB as a text to the specified handle Indexing "index" Generates the hash tables for forward (extension to mime) mappings, and backwards(mime to extension set) mapping. my ($forward,$backward)=$db->index; $forward->{"txt"); Database Manipulation "add" Adds a single mapping from file extension to mime type. The "index" method will need to be called after to construct a new lookup hashes "rem" Removes a single mapping from file extension to mime type. The "index" method will need to be called after to construct a new lookup hashes Forward Lookups Once indexed, lookups are simply done via hash reference: my $forward=$db->index; #Previously index db to $forward $forward->{ext}; #Direct hash lookup A single MIME type will be returned in the forward lookup. If the hash doesn't contain the extension to MIME mapping, undef is returned. Reverse Lookups To get the reverse lookup table, list context must be used when indexing: my ($forward, $revsere)=$db->index; #previously index $reverse->{mime}; #Direct hash lookup An anonymous array of extension types are returned with zero or more file extensions Default/Fallback When forward lookups fails to locate a MIME type for the extension, use the 'defined or' operator to specify a fallback. $forward->{unkown_extension}//"my_default/type"; For reverse lookup failure, an empty anonymous array is returned. my @exts=$reverse->{unkown_mime}->@*||qw; PERFORMANCE A very basic benchmark of performing a forward lookup of a "txt" extension. Comparing this modules to Plack::MIME and MIME::Detect locally on my laptop give the following lookup rates: Module Lookup rate MIME::Detect 167/s Plack::MIME 5208333/s uSAC::MIME 43478261/s REPOSITORY Checkout the repo at AUTHOR Ruben Westerberg COPYRIGHT Copyright (C) 2022 Ruben Westerberg LICENSE MIT or Perl, whichever you choose.