File Coverage

blib/lib/Mojolicious/Plugin/AutoIndex.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	7	8	87.5
condition	1	3	33.3
subroutine	5	5	100.0
pod	1	1	100.0
total	39	42	92.8

use strict;

# ABSTRACT: Mojolicious plugin for autoindex function at static resource
use warnings;

package Mojolicious::Plugin::AutoIndex;
{
  $Mojolicious::Plugin::AutoIndex::VERSION = '0.0006';
}

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


my $config = { index => [qw/index.html index.htm/] };

sub register {
    my ( $self, $app, $conf ) = @_;
    $config->{index} = $conf->{index} if $conf->{index};
    return unless @{ $config->{index} };
    $app->hook(
        before_dispatch => sub {
            my $c = shift;
            my $path = $c->stash('path') // $c->req->url->path->to_string;
            return unless $path =~ m!/$!;
            my $sv_path = $c->stash('path');
            foreach ( @{ $config->{index} } ) {
                $c->stash->{path} = $path . $_;
                if ( $app->static->dispatch($c) ) {
                    $c->stash->{path} = $sv_path;
                    return $app->plugins->emit_hook( after_static => $c );
                }
            }
            $c->stash->{path} = $sv_path;
        }
    );
}

1;

__END__