@rem = '--*-Perl-*-- @set "ErrorLevel=" @if "%OS%" == "Windows_NT" @goto WinNT @perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9 @set ErrorLevel=%ErrorLevel% @goto endofperl :WinNT @perl -x -S %0 %* @set ErrorLevel=%ErrorLevel% @if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" @goto endofperl @if %ErrorLevel% == 9009 @echo You do not have Perl in your PATH. @goto endofperl @rem '; #!perl #line 30 use Mojo::Base -strict; use Mojolicious::Commands; Mojolicious::Commands->start_app('Mojo::HelloWorld'); =encoding utf8 =head1 NAME mojo - The Mojolicious command system =head1 SYNOPSIS $ mojo --help =head1 DESCRIPTION List and run L commands as described in L. =head1 SEE ALSO L, L, L. =cut __END__ :endofperl @set "ErrorLevel=" & @goto _undefined_label_ 2>NUL || @"%COMSPEC%" /d/c @exit %ErrorLevel%