… | |
… | |
17 | use common::sense; |
17 | use common::sense; |
18 | |
18 | |
19 | use Carp (); |
19 | use Carp (); |
20 | use AnyEvent (); |
20 | use AnyEvent (); |
21 | use JSON::XS (); |
21 | use JSON::XS (); |
|
|
22 | |
|
|
23 | our $VERSION = '1.30'; |
22 | |
24 | |
23 | our $CONFIG_FILE = exists $ENV{PERL_ANYEVENT_MP_RC} ? $ENV{PERL_ANYEVENT_MP_RC} |
25 | our $CONFIG_FILE = exists $ENV{PERL_ANYEVENT_MP_RC} ? $ENV{PERL_ANYEVENT_MP_RC} |
24 | : exists $ENV{HOME} ? "$ENV{HOME}/.perl-anyevent-mp" |
26 | : exists $ENV{HOME} ? "$ENV{HOME}/.perl-anyevent-mp" |
25 | : "$ENV{APPDATA}/perl-anyevent-mp"; |
27 | : "$ENV{APPDATA}/perl-anyevent-mp"; |
26 | |
28 | |