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