… | |
… | |
1233 | |
1233 | |
1234 | BEGIN { AnyEvent::common_sense } |
1234 | BEGIN { AnyEvent::common_sense } |
1235 | |
1235 | |
1236 | use Carp (); |
1236 | use Carp (); |
1237 | |
1237 | |
1238 | our $VERSION = '6.02'; |
1238 | our $VERSION = '6.1'; |
1239 | our $MODEL; |
1239 | our $MODEL; |
1240 | our @ISA; |
1240 | our @ISA; |
1241 | our @REGISTRY; |
1241 | our @REGISTRY; |
1242 | our $VERBOSE; |
1242 | our $VERBOSE; |
1243 | our %PROTOCOL; # (ipv4|ipv6) => (1|2), higher numbers are preferred |
1243 | our %PROTOCOL; # (ipv4|ipv6) => (1|2), higher numbers are preferred |
… | |
… | |
1432 | if (${"$package\::VERSION"} > 0) { |
1432 | if (${"$package\::VERSION"} > 0) { |
1433 | if (eval "require $model") { |
1433 | if (eval "require $model") { |
1434 | AnyEvent::log 7 => "autodetected model '$model', using it."; |
1434 | AnyEvent::log 7 => "autodetected model '$model', using it."; |
1435 | $MODEL = $model; |
1435 | $MODEL = $model; |
1436 | last; |
1436 | last; |
|
|
1437 | } else { |
|
|
1438 | AnyEvent::log 8 => "detected event loop $package, but cannot load '$model', skipping: $@"; |
1437 | } |
1439 | } |
1438 | } |
1440 | } |
1439 | } |
1441 | } |
1440 | |
1442 | |
1441 | unless ($MODEL) { |
1443 | unless ($MODEL) { |