view release on metacpan or  search on metacpan

eg/app-auth-basic.psgi  view on Meta::CPAN

use File::Spec;
use File::Basename;
use lib File::Spec->catdir( dirname(__FILE__), '..', 'extlib', 'lib', 'perl5' );
use lib File::Spec->catdir( dirname(__FILE__), '..', 'lib' );
use Plack::Builder;
use Plack::App::GitSmartHttp;

builder {
    enable "Plack::Middleware::AccessLog", format        => "combined";
    enable "Auth::Basic",                  authenticator => \&authen_cb;
    Plack::App::GitSmartHttp->new(
        root          => 'repos',
        git_path      => '/usr/bin/git',
        upload_pack   => 1,
        received_pack => 1
    )->to_app;
};

sub authen_cb {
    my ( $username, $password ) = @_;
    return $username eq 'admin' && $password eq 's3cr3t';
}