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<my_default>;

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 https://github.com/drclaw1394/perl-usac-mime

AUTHOR

Ruben Westerberg

COPYRIGHT

Copyright (C) 2022 Ruben Westerberg

LICENSE

MIT or Perl, whichever you choose.

cpanm uSAC::MIME

perl -MCPAN -e shell
install uSAC::MIME