Да мне грязный хак! Все поля останутся в объекте.

Просто хочу точный crc-хеш и конкретный номер схемы для каждого иметь…

а они что, именами класса не отличаются?

Ну я вот думаю…

))

Может и не надо, чтобы отличались?..

в генераторе в use fields добавить в каждые поле

/report

use Alt+F4 or just push the button "Reset" 😁

my $cond = AnyEvent->condvar;
my $signal = AnyEvent->signal( signal => 'INT', cb => sub {
  say "INT recvd";
  $cond->send;
});
$cond->recv;

– Это под Windows вообще не будет работать?
Просто если это убрать, то после нажатия Ctrl+C в консоли я получаю «Terminating on signal SIGINT(2)», а если поставить это – то Ctrl+C просто игнорируется и ничего не происходит.

Или я что-то не так написал?

там под виндой какая-то хрень с сигналами в AnyEvent, я не разбирался

в общем-то, на винде ж нет сигналов =)

Я нагуглил, что у виндового перла «очень плохая эмуляция сигналов». Но меня и плохая устроит, мне ж только Ctrl+C нужен…

если он нужен "просто для выхода", то можно просто убрать

Не для выхода, чтобы gracefully из обработок выйти и состояние сохранить.

в cborlog.pl есть пример, обрабатывается возникновение файла и выход по нему - т.к. я его гонял а-ля демон под wperl.exe шоб не занимал мне лишним консольным окошком таскбар

А говорят, это я костыльщик.

так проблема в винде

Ещё можно вроде просто его из stdin считать.
Как это сделать через AnyEvent?

Я что-то по примеру не смог.

Как event-driven на винде из STDIN читать, без <> ?

никак, лол)))

В смысле никак, а это

 my $wait_for_input = AnyEvent->io (
     fh   => \*STDIN, # which file handle to check
     poll => "r",     # which event to wait for ("r"ead data)
     cb   => sub {    # what callback to execute
        $name = <STDIN>; # read it
     }
  );

и это

  my $hdl; $hdl = new AnyEvent::Handle
     fh => \*STDIN,
     on_error => sub {
        my ($hdl, $fatal, $msg) = @_;
        AE::log error => $msg;
        $hdl->destroy;
        $cv->send;
     };

!?