| … | |
… | |
| 457 | if ($ENV{PERL_ANYEVENT_MODEL} =~ /^([a-zA-Z]+)$/) { |
457 | if ($ENV{PERL_ANYEVENT_MODEL} =~ /^([a-zA-Z]+)$/) { |
| 458 | my $model = "AnyEvent::Impl::$1"; |
458 | my $model = "AnyEvent::Impl::$1"; |
| 459 | if (eval "require $model") { |
459 | if (eval "require $model") { |
| 460 | $MODEL = $model; |
460 | $MODEL = $model; |
| 461 | warn "AnyEvent: loaded model '$model' (forced by \$PERL_ANYEVENT_MODEL), using it.\n" if $verbose > 1; |
461 | warn "AnyEvent: loaded model '$model' (forced by \$PERL_ANYEVENT_MODEL), using it.\n" if $verbose > 1; |
|
|
462 | } else { |
|
|
463 | warn "AnyEvent: unable to load model '$model' (from \$PERL_ANYEVENT_MODEL):\n$@" if $verbose; |
| 462 | } |
464 | } |
| 463 | } |
465 | } |
| 464 | |
466 | |
| 465 | # check for already loaded models |
467 | # check for already loaded models |
| 466 | unless ($MODEL) { |
468 | unless ($MODEL) { |
| … | |
… | |
| 659 | |
661 | |
| 660 | =over 4 |
662 | =over 4 |
| 661 | |
663 | |
| 662 | =item C<PERL_ANYEVENT_VERBOSE> |
664 | =item C<PERL_ANYEVENT_VERBOSE> |
| 663 | |
665 | |
|
|
666 | By default, AnyEvent will be completely silent except in fatal |
|
|
667 | conditions. You can set this environment variable to make AnyEvent more |
|
|
668 | talkative. |
|
|
669 | |
|
|
670 | When set to C<1> or higher, causes AnyEvent to warn about unexpected |
|
|
671 | conditions, such as not being able to load the event model specified by |
|
|
672 | C<PERL_ANYEVENT_MODEL>. |
|
|
673 | |
| 664 | When set to C<2> or higher, cause AnyEvent to report to STDERR which event |
674 | When set to C<2> or higher, cause AnyEvent to report to STDERR which event |
| 665 | model it chooses. |
675 | model it chooses. |
| 666 | |
676 | |
| 667 | =item C<PERL_ANYEVENT_MODEL> |
677 | =item C<PERL_ANYEVENT_MODEL> |
| 668 | |
678 | |
