view release on metacpan or  search on metacpan

lib/Plack/App/TemplatedDirectory.pm  view on Meta::CPAN

    }
 
    for my $basename (sort { $a cmp $b } @children) {
        my $file = "$dir/$basename";
        my $url = $dir_url . $basename;
		my ($ext) = $basename =~m/\.(\w*)$/;
 
        my $is_dir = -d $file;
        my @stat = stat _;
 
        $url = join '/', map {uri_escape($_)} split m{/}, $url;
 
        if ($is_dir) {
            $basename .= "/";
            $url      .= "/";
        }
 
        my $mime_type = $is_dir ? 'directory' : ( Plack::MIME->mime_type($file) || 'text/plain' );
        push @files, {
			url => $url,
			name => $basename,