File Coverage

script/remarkpl

Criterion	Covered	Total	%
statement	7	7	100.0
branch	1	2	50.0
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	11	12	91.6

#!/usr/bin/env perl
use Mojolicious::Lite;
use App::remarkpl;
my $presentation = shift @ARGV || $ENV{REMARK_PRESENTATION} || '';

unless ($ENV{MOJO_APP_LOADER}) {
  exec perldoc => -tT => $INC{'App/remarkpl.pm'} unless $presentation;
  die qq(Cannot read presentation file "$presentation".\n) unless $presentation eq 'example.markdown' or -r $presentation;
  unshift @ARGV, 'daemon';
}

require Cwd;
app->renderer->paths([split /:/, ($ENV{REMARK_PUBLIC} // File::Spec->catdir(Cwd::getcwd(), 'templates'))]);
app->static->paths([split /:/, ($ENV{REMARK_STATIC} // Cwd::getcwd())]);
push @{app->static->paths},
  Cwd::abs_path(File::Spec->catdir(File::Basename::dirname($INC{'App/remarkpl.pm'}), qw( remarkpl public )));

$presentation ||= 'example.markdown';
app->defaults(title => $presentation);

if (grep {/^--print/} @ARGV) {
  print read_presentation();
  exit 0;
}

app->log->info(qq(Looking for static files in ) . join ', ', @{app->static->paths});
app->log->info(qq(Looking for templates in ) . join ', ',    @{app->renderer->paths});
app->log->info(qq(Serving presentation "$presentation"));

get '/' => sub {
  shift->render(template => 'index', presentation => read_presentation());
};

app->start;

sub read_presentation {
  Mojo::Util::decode(
    'UTF-8',
    -e $presentation ? Mojo::File->new($presentation)->slurp : Mojo::Loader::data_section(__PACKAGE__, $presentation)
  );
}

__DATA__