File Coverage

blib/lib/Mojolicious/Plugin/MimeTypes.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	1	2	50.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	26	27	96.3

package Mojolicious::Plugin::MimeTypes;
use Mojo::Base 'Mojolicious::Plugin';

our $VERSION = '0.04';

use MIME::Types;
use List::MoreUtils qw(uniq);

sub register {
  my ($self, $app) = @_;
  my $mts = MIME::Types->new;
  my %types = ();
  foreach my $type ( $mts->listTypes ) {
    my $mt = $mts->type($type) or next;
    foreach my $ext ( sort $mt->extensions ) {
      push @{$types{lc($ext)}}, $type;
    }
  }
  foreach my $ext ( sort keys %types ) {
    $app->types->type($ext => [uniq @{$types{$ext}}]);
  }
}

1;
__END__