—

              
#!/usr/bin/env perl
# -*- mode: perl; coding: utf-8 -*-
use strict;
use warnings qw(FATAL all NONFATAL misc);
use FindBin; BEGIN {do "$FindBin::RealBin/libdir.pl"}
#----------------------------------------
use mro qw/c3/;
use YATT::Lite::WebMVC0::SiteApp -as_base;
use Plack::App::Directory;
use Plack::Runner;
use Cwd;
{
  my $runner = Plack::Runner->new;
  $runner->parse_options(@ARGV);
  my $argv = $runner->{argv};
  my $docpath = (@$argv && $argv->[0]) || cwd;
  print "docpath=$docpath\n";
  my $site = MY->new(doc_root => $docpath
                     , psgi_fallback => Plack::App::Directory->new
                     ({root => $docpath})->to_app
                   );
  $runner->run($site->to_app);
}
__END__
HideShow 27 lines of Pod
=head1 NAME
yattup - plackup alike for yatt_lite
=head1 SYNOPSIS
    # run local webserver using current directory as *.yatt handler
    yattup
    # Use other directory, with port.
    yattup --port 5050 ~/public_html
=head1 DESCRIPTION
C<yattup> is a command line utility to run F<*.yatt> files with
default L<PSGI App|YATT::Lite::WebMVC0::SiteApp>.
It relies on L<Plack::Runner>, so you can use most of its
L<options|Plack::Runner/OPTIONS> in yattup too
(except C<-e>, which requires C<app.psgi> to be given as a actual file).
=head1 SEE ALSO
L<Plack::Runner>
=cut