Initial Commit

database/perl/bin/mojo.bat

@@ -0,0 +1,43 @@
+@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<Mojolicious> commands as described in L<Mojolicious::Commands>.
+
+=head1 SEE ALSO
+
+L<Mojolicious>, L<Mojolicious::Guides>, L<https://mojolicious.org>.
+
+=cut
+__END__
+:endofperl
+@set "ErrorLevel=" & @goto _undefined_label_ 2>NUL || @"%COMSPEC%" /d/c @exit %ErrorLevel%