gistfile1.PL

#!/usr/bin/env perl
#
# Chris Weyl <cweyl@alumni.drew.edu>
 
use strict;
use warnings;
 
use lib '/usr/share/bugzilla';
 
use Plack::App::CGIBin;
use Plack::Builder;
use Readonly;
 
Readonly my $BZ => '/usr/share/bugzilla';
 
my $app = Plack::App::CGIBin->new(root => $BZ)->to_app;
 
builder {
 
    enable "Plack::Middleware::Static",
        path => qr{^/skins/}, root => $BZ;
 
    enable "Plack::Middleware::Static",
        path => qr{^/js/}, root => $BZ;
    
    $app;
}