#!/usr/bin/env perl
use Mojolicious::Lite;
use Mojo::File qw(path);
my $dir   = $ARGV[0] // path(__FILE__)->dirname->child('..', 't')->to_string;
my $label = path( $dir )->to_array;
plugin(
    Prove => {
        tests => {
            $label->[-1] => $dir,
        },
    },
);
get '/' => sub {
    my $c = shift;
    return $c->redirect_to( $c->url_for('mpp_prove_list') );
};
app->start;