ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/lib/AnyEvent.pm
(Generate patch)

Comparing AnyEvent/lib/AnyEvent.pm (file contents):
Revision 1.58 by root, Thu Apr 24 03:24:07 2008 UTC vs.
Revision 1.60 by root, Fri Apr 25 01:05:26 2008 UTC

… …
422no warnings; 422no warnings;
423use strict; 423use strict;
424 424
425use Carp; 425use Carp;
426 426
427our $VERSION = '3.12'; 427our $VERSION = '3.2';
428our $MODEL; 428our $MODEL;
429 429
430our $AUTOLOAD; 430our $AUTOLOAD;
431our @ISA; 431our @ISA;
432 432
… …
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
666By default, AnyEvent will be completely silent except in fatal
667conditions. You can set this environment variable to make AnyEvent more
668talkative.
669
670When set to C<1> or higher, causes AnyEvent to warn about unexpected
671conditions, such as not being able to load the event model specified by
672C<PERL_ANYEVENT_MODEL>.
673
664When set to C<2> or higher, cause AnyEvent to report to STDERR which event 674When set to C<2> or higher, cause AnyEvent to report to STDERR which event
665model it chooses. 675model it chooses.
666 676
667=item C<PERL_ANYEVENT_MODEL> 677=item C<PERL_ANYEVENT_MODEL>
668 678

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines