File Coverage

lib/MIME/Type/FileName.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch	2	2	100.0
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	15	16	93.7

=head1 NAME

MIME::Type::FileName - guess MIME type using file name extensions


=head1 SYNOPSIS

in your Perl code:

  use MIME::Type::FileName;
  my $mimetype = MIME::Type::FileName::guess ("my-file.xls");


=head1 SUMMARY

It sounds rather silly, but I can't find a module on CPAN which does something
this simple.

Hence I wrote it and released it.


=head1 EXPORTS

None.


=head1 BUGS

This library is so simple, I guess any bugs would be related to missing mime
types. It's probably all very wrong for some reason.

If you think something is missing, please drop me a mail.


=head1 AUTHOR & LICENSE

Jean-Michel Hiver - jhiver (at) gmail (dot) com

This module free software and is distributed under the same license as Perl
itself. Use it at your own risk.

=cut
package MIME::Type::FileName;
use warnings;
use strict;

our $VERSION = "1.0";

our %TYPE = ();


while () {
    chomp();
    my ($ext, $mime) = split /\s+/, $_;
    $TYPE{$ext} = $mime;
}

sub guess {
    my $file = lc(shift);
    while ($file =~ s/^.*?\.//) {
        $TYPE{$file} and return $TYPE{$file};
    }
    return 'application/octet-stream';
}


1;


__DATA__