| … | |
… | |
| 1119 | |
1119 | |
| 1120 | if ($ENV{PERL_ANYEVENT_MODEL} =~ /^([a-zA-Z]+)$/) { |
1120 | if ($ENV{PERL_ANYEVENT_MODEL} =~ /^([a-zA-Z]+)$/) { |
| 1121 | my $model = "AnyEvent::Impl::$1"; |
1121 | my $model = "AnyEvent::Impl::$1"; |
| 1122 | if (eval "require $model") { |
1122 | if (eval "require $model") { |
| 1123 | $MODEL = $model; |
1123 | $MODEL = $model; |
| 1124 | warn "AnyEvent: loaded model '$model' (forced by \$PERL_ANYEVENT_MODEL), using it.\n" if $verbose > 1; |
1124 | warn "AnyEvent: loaded model '$model' (forced by \$ENV{PERL_ANYEVENT_MODEL}), using it.\n" if $verbose > 1; |
| 1125 | } else { |
1125 | } else { |
| 1126 | warn "AnyEvent: unable to load model '$model' (from \$PERL_ANYEVENT_MODEL):\n$@" if $verbose; |
1126 | warn "AnyEvent: unable to load model '$model' (from \$ENV{PERL_ANYEVENT_MODEL}):\n$@" if $verbose; |
| 1127 | } |
1127 | } |
| 1128 | } |
1128 | } |
| 1129 | |
1129 | |
| 1130 | # check for already loaded models |
1130 | # check for already loaded models |
| 1131 | unless ($MODEL) { |
1131 | unless ($MODEL) { |
