| … | |
… | |
| 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::], |
