File Coverage

blib/lib/Plack/App/DirectoryIndex.pm

Criterion	Covered	Total	%
statement	30	31	96.7
branch	8	10	80.0
condition	6	8	75.0
subroutine	6	6	100.0
pod	0	1	0.0
total	50	56	89.2

package Plack::App::DirectoryIndex;

use parent qw[Plack::App::Directory];

use strict;
use warnings;

use Plack::Util::Accessor qw[dir_index icons pretty];
use WebServer::DirIndex;

our $VERSION = '0.2.1';

# NOTE: Copied from Plack::App::Directory as that module makes it
# impossible to override the HTML.

sub serve_path {
  my $self = shift;
  my ($env, $dir) = @_;

  my $dir_index = $self->dir_index // 'index.html';

  if (-d $dir and $dir_index and -f "$dir$dir_index") {
    $dir .= $dir_index;
  }

  if (-f $dir) {
    return $self->SUPER::serve_path($env, $dir);
  }

  my $dir_url = $env->{SCRIPT_NAME} . $env->{PATH_INFO};

  if ($dir_url !~ m{/$}) {
    return $self->return_dir_redirect($env);
  }

  my %dir_index_args = (
    dir     => $dir,
    dir_url => $dir_url,
  );

  $dir_index_args{pretty} = $self->pretty if defined $self->pretty;
  $dir_index_args{icons}  = $self->icons  if defined $self->icons;

  my $di   = WebServer::DirIndex->new(%dir_index_args);
  my $page = $di->to_html($env->{PATH_INFO});

  return [ 200, ['Content-Type' => 'text/html; charset=utf-8'], [ $page ] ];
}

1;

__END__