… | |
… | |
23 | our %dec_server; # decode messages received from server |
23 | our %dec_server; # decode messages received from server |
24 | our %enc_server; # encode messages received from server |
24 | our %enc_server; # encode messages received from server |
25 | |
25 | |
26 | { |
26 | { |
27 | |
27 | |
28 | use Gtk2::GoBoard::Constants; # for MARK_xyz |
28 | use Games::Go::SimpleBoard; # for MARK_xyz |
29 | use Math::BigInt (); |
29 | use Math::BigInt (); |
30 | |
30 | |
31 | my $data; # stores currently processed decoding/encoding packet |
31 | my $data; # stores currently processed decoding/encoding packet |
32 | |
32 | |
33 | sub _set_data($) { $data = shift } # for debugging or special apps only |
33 | sub _set_data($) { $data = shift } # for debugging or special apps only |