1234567891011 #!/usr/bin/env perluse warnings;use strict;use File::Basename qw(dirname); use UNIVERSAL::require;use Jifty;use Jifty::Script;local $SIG{INT} = sub { warn "Stopped\n"; exit; };Jifty::Script->dispatch();
#!/usr/bin/env perl
use
warnings;
strict;
File::Basename
qw(dirname)
;
UNIVERSAL::
require
Jifty;
Jifty::Script;
local
$SIG
{INT} =
sub
{
warn
"Stopped\n"
exit
; };
Jifty::Script->dispatch();