| … | |
… | |
| 18 | |
18 | |
| 19 | use Carp (); |
19 | use Carp (); |
| 20 | use AnyEvent (); |
20 | use AnyEvent (); |
| 21 | use JSON::XS (); |
21 | use JSON::XS (); |
| 22 | |
22 | |
| 23 | our $VERSION = '2.01'; |
23 | our $VERSION = '2.02'; |
| 24 | |
24 | |
| 25 | 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} |
| 26 | : exists $ENV{HOME} ? "$ENV{HOME}/.perl-anyevent-mp" |
26 | : exists $ENV{HOME} ? "$ENV{HOME}/.perl-anyevent-mp" |
| 27 | : "$ENV{APPDATA}/perl-anyevent-mp"; |
27 | : "$ENV{APPDATA}/perl-anyevent-mp"; |
| 28 | |
28 | |
