view release on metacpan or  search on metacpan

bin/chorus  view on Meta::CPAN

die "usage: $0 <slides.mkd>\n" unless @ARGV == 1;
my $prez = shift;

die "file '$prez' not found\n" unless -f $prez;

$::options{appdir} &&= path($::options{appdir})->absolute;

$ENV{DANCER_APPDIR} = $::options{appdir} ||
    File::ShareDir::Tarball::dist_dir( 'App-Chorus' );

say "using appdir '$ENV{DANCER_APPDIR}'";

Dancer->import;

Dancer::set( 'port' => $::options{port} );
if ( my $public = $::options{public} ){
    $public = Path::Tiny::path($public)->absolute;
    $App::Chorus::local_public = $public;
}

Dancer::load_app( 'App::Chorus', settings => {