/usr/share/perl5/Mojolicious/Types.pm is in libmojolicious-perl 2.23-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 | package Mojolicious::Types;
use Mojo::Base -base;
# "Once again, the conservative, sandwich-heavy portfolio pays off for the
# hungry investor."
has types => sub {
return {
atom => 'application/atom+xml',
bin => 'application/octet-stream',
css => 'text/css',
gif => 'image/gif',
gz => 'application/gzip',
htm => 'text/html',
html => 'text/html;charset=UTF-8',
ico => 'image/x-icon',
jpeg => 'image/jpeg',
jpg => 'image/jpeg',
js => 'application/x-javascript',
json => 'application/json',
mp3 => 'audio/mpeg',
png => 'image/png',
rss => 'application/rss+xml',
svg => 'image/svg+xml',
tar => 'application/x-tar',
txt => 'text/plain',
woff => 'application/x-font-woff',
xml => 'text/xml',
xsl => 'text/xml',
zip => 'application/zip'
};
};
# "Magic. Got it."
sub detect {
my ($self, $accept) = @_;
# Detect extensions from MIME type
return [] unless (($accept || '') =~ /^([^,]+?)(?:\;[^,]*)*$/);
my $pattern = $1;
my @exts;
my $types = $self->types;
for my $ext (sort keys %$types) {
my $type = quotemeta $types->{$ext};
$type =~ s/\\\;.*$//;
push @exts, $ext if $pattern =~ /^$type$/i;
}
return \@exts;
}
sub type {
my ($self, $ext, $type) = @_;
if ($type) {
$self->types->{$ext} = $type;
return $self;
}
return $self->types->{$ext || ''};
}
1;
__END__
=head1 NAME
Mojolicious::Types - MIME types
=head1 SYNOPSIS
use Mojolicious::Types;
my $types = Mojolicious::Types->new;
=head1 DESCRIPTION
L<Mojolicious::Types> is a container for MIME types.
=head1 ATTRIBUTES
L<Mojolicious::Types> implements the following attributes.
=head2 C<types>
my $map = $types->types;
$types = $types->types({png => 'image/png'});
List of MIME types.
=head1 METHODS
L<Mojolicious::Types> inherits all methods from L<Mojo::Base> and implements the
following ones.
=head2 C<detect>
my $extensions = $types->detect('application/json;q=9');
Detect file extensions from C<Accept> header value.
Note that this method is EXPERIMENTAL and might change without warning!
=head2 C<type>
my $type = $types->type('png');
$types = $types->type(png => 'image/png');
Get or set MIME type for file extension.
=head1 SEE ALSO
L<Mojolicious>, L<Mojolicious::Guides>, L<http://mojolicio.us>.
=cut
|