view release on metacpan or  search on metacpan

lib/Dancer/Plugin/DirectoryView.pm  view on Meta::CPAN

            'image/jpeg' => 'file-image-x-generic',
            'image/png' => 'file-image-x-generic',
            'text/html' => 'file-text-html',
            'text/plain' => 'file-text-plain',
            'text/x-csrc' => 'file-text-x-csrc'
        );
        
        for my $name (sort { $a cmp $b } @entries) {
            my $file = catfile($real_path, $name);
            my $url = $name;
            $url = join '/', map { uri_escape($_) } split m!/!, $url;
            
            my $is_dir = -d $file;
            my @stat = stat(_);
            
            if ($is_dir) {
                $name .= '/';
                $url .= '/';
            }
            
            my $mime_type = $is_dir ? 'directory' : $mime->for_file($name)