21 lines
238 B
Perl
Executable File
21 lines
238 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use v5.30.0;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Carp qw/confess/;
|
|
|
|
use Cualsea::Server::Loop;
|
|
|
|
my $loop = Cualsea::Server::Loop->new;
|
|
|
|
while (1) {
|
|
try {
|
|
$loop->run;
|
|
} catch {
|
|
confess $_;
|
|
};
|
|
}
|