warstone@dev:~$ perl test.plx
[2021/02/27 02:11:09] 63648 test.plx [debug]: Debug messages enabled
[2021/02/27 02:11:09] 63648 test.plx [debug]: Statistics enabled
[2021/02/27 02:11:11] 63648 test.plx [info]: $a = 1
a = 2
b = 2
b = 2
END
warstone@dev:~$ cat test.plx
#!/usr/local/bin/perl
use 5.012;
use warnings;
use lib::abs qw{ lib };
use Panda;
use Project {Service => 1};
use Data::Dumper;
use Benchmark qw/timethis timethese/;
use JSON::XS qw/encode_json/;


my $a = 1;
XLog::info('$a = %d', $a++);
print "a = $a\n";

XLog::set_level(XLog::ERROR);

my $b = 1;
sub qwe {
    XLog::info('$b = %d', $b++);
}
qwe();
print "b = $b\n";

qwe();
print "b = $b\n";

say "END";