… | |
… | |
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 | |