File Coverage

blib/lib/Plack/App/DirectoryIndex.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition	6	8	75.0
subroutine	5	5	100.0
pod	0	1	0.0
total	31	34	91.1

package Plack::App::DirectoryIndex;

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

use strict;
use warnings;

use Plack::Util::Accessor 'dir_index';

our $VERSION = '0.0.2';

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;
  }

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

1;

__END__