… | |
… | |
731 | no warnings; |
731 | no warnings; |
732 | use strict; |
732 | use strict; |
733 | |
733 | |
734 | use Carp; |
734 | use Carp; |
735 | |
735 | |
736 | our $VERSION = '4.04'; |
736 | our $VERSION = '4.05'; |
737 | our $MODEL; |
737 | our $MODEL; |
738 | |
738 | |
739 | our $AUTOLOAD; |
739 | our $AUTOLOAD; |
740 | our @ISA; |
740 | our @ISA; |
741 | |
741 | |
… | |
… | |
755 | { |
755 | { |
756 | my $idx; |
756 | my $idx; |
757 | $PROTOCOL{$_} = ++$idx |
757 | $PROTOCOL{$_} = ++$idx |
758 | for reverse split /\s*,\s*/, |
758 | for reverse split /\s*,\s*/, |
759 | $ENV{PERL_ANYEVENT_PROTOCOLS} || "ipv4,ipv6"; |
759 | $ENV{PERL_ANYEVENT_PROTOCOLS} || "ipv4,ipv6"; |
760 | } |
|
|
761 | |
|
|
762 | sub import { |
|
|
763 | shift; |
|
|
764 | return unless @_; |
|
|
765 | |
|
|
766 | my $pkg = caller; |
|
|
767 | |
|
|
768 | no strict 'refs'; |
|
|
769 | |
|
|
770 | for (@_) { |
|
|
771 | *{"$pkg\::WIN32"} = *WIN32 if $_ eq "WIN32"; |
|
|
772 | } |
|
|
773 | } |
760 | } |
774 | |
761 | |
775 | my @models = ( |
762 | my @models = ( |
776 | [EV:: => AnyEvent::Impl::EV::], |
763 | [EV:: => AnyEvent::Impl::EV::], |
777 | [Event:: => AnyEvent::Impl::Event::], |
764 | [Event:: => AnyEvent::Impl::Event::], |