view release on metacpan or  search on metacpan

README  view on Meta::CPAN

     use MIME::Types;
     my $mt = MIME::Types->new->mimeTypeOf("gif") or die "Unknown MIME type";
     say "$mt" ;# => "image/gif"

    2b. With Media::Type::Simple:

     use Media::Type::Simple;
     $type = type_from_ext("jpg"); # => "image/jpeg"

    2c. With MIME::Type::FileName (comes with its own type database, last
    updated 2012):

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

    3. Guessing MIME type of a file based on its extension

    3a. With File::MimeInfo:

     use File::MimeInfo;
     my $mime_type = mimetype('test.png') or die "Unknown MIME type";

lib/Acme/CPANModules/MIMETypes.pm  view on Meta::CPAN

    use MIME::Types;
    my $mt = MIME::Types->new->mimeTypeOf("gif") or die "Unknown MIME type";
    say "$mt" ;# => "image/gif"

**2b. With Media::Type::Simple:**

    use Media::Type::Simple;
    $type = type_from_ext("jpg"); # => "image/jpeg"

**2c. With <pm:MIME::Type::FileName> (comes with its own type database, last updated 2012):**

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


**3. Guessing MIME type of a file based on its extension**

**3a. With File::MimeInfo:**

    use File::MimeInfo;

lib/Acme/CPANModules/MIMETypes.pm  view on Meta::CPAN

 use MIME::Types;
 my $mt = MIME::Types->new->mimeTypeOf("gif") or die "Unknown MIME type";
 say "$mt" ;# => "image/gif"

B<2b. With Media::Type::Simple:>

 use Media::Type::Simple;
 $type = type_from_ext("jpg"); # => "image/jpeg"

B<< 2c. With L<MIME::Type::FileName> (comes with its own type database, last updated 2012): >>

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

B<3. Guessing MIME type of a file based on its extension>

B<3a. With File::MimeInfo:>

 use File::MimeInfo;
 my $mime_type = mimetype('test.png') or die "Unknown MIME type";