12345678910111213141516171819202122 #!perluse warnings;use strict;use utf8;my $cmd = shift;if( $cmd eq 'console' ) { use Jaipo::UI::Console; my $jc = Jaipo::UI::Console->new; $jc->init; $jc->run;} else { print <<HELP Usage: perl -Ilib bin/jaipo consoleHELP}
#!perl
use
warnings;
strict;
utf8;
my
$cmd
=
shift
;
if
(
eq
'console'
) {
Jaipo::UI::Console;
$jc
= Jaipo::UI::Console->new;
->init;
->run;
}
else
{
print
<<HELP
Usage:
perl -Ilib bin/jaipo console
HELP