File Coverage

blib/lib/File/MimeInfo/Simple.pm

Criterion	Covered	Total	%
statement	30	36	83.3
branch	11	16	68.7
condition	1	5	20.0
subroutine	7	7	100.0
pod	1	1	100.0
total	50	65	76.9

package File::MimeInfo::Simple;

use strict;
use warnings;

use Carp;
use YAML::Syck;

require Exporter;

our $VERSION = '0.8';
our @ISA = qw(Exporter);
our @EXPORT = qw(mimetype);

# Lazy-loaded MIME type lookup table
my $yaml;

sub _load_mime_table {
	return if $yaml;
	local $/;
	my $data = ;
	$yaml = Load($data);
}

sub mimetype {
	my ($filename) = shift;

	croak "No filename passed to mimetype()" unless $filename;
	croak "Unable to read file: $filename" if -d $filename or ! -r $filename;

	my $mimetype;
	# if platform -> windows
	if($^O =~ m!MSWin32!i) {
		return _find_mimetype_by_table($filename);
	} else {
    	# Use safe pipe open to avoid shell injection
    	if (open(my $fh, '-|', 'file', '--mime', '-br', $filename)) {
    		$mimetype = <$fh>;
    		close($fh);
    	}
		unless($mimetype) {
			return _find_mimetype_by_table($filename);
		}
	}

	chomp $mimetype;

	$mimetype =~ s/[;,\s]+.*$//;
	return $mimetype || undef;
}

sub _find_mimetype_by_table {
	my($filename) = shift;
	_load_mime_table();
	# Extract extension: everything after the last dot
	my($ext) = $filename =~ /\.([^.]+)$/;
	return undef unless $ext;
	return $yaml->{lc $ext} if(exists $yaml->{lc $ext});
	return undef;
}

1;

=head1 NAME

File::MimeInfo::Simple - Simple implementation to determine file type

=head1 USAGE

 use File::MimeInfo::Simple;
 say mimetype("/Users/damog/vatos_rudos.jpg"); # prints out 'image/jpeg'
 say mimetype("C:\perl\foo.pl") # prints out 'application/x-perl'

=head1 DESCRIPTION

C is a much simpler implementation and uses a much
simpler approach than C, using the 'file' command on a
UNIX-based operating system. Windows uses a key-value list for extensions. It's
inspired on Matt Aimonetti's mimetype-fu used on Ruby and the Rails world.

=head1 FUNCTIONS

=head2 mimetype( $filename )

C is exported by default. It receives a parameter, the file
path. It returns a string containing the mime type for the file, or
C if the type cannot be determined.

=head1 AUTHOR

David Moreno <[e-mail]>.

=head1 LICENSE

Copyright 2009-2025 David Moreno.

This program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.

=cut

__DATA__