… | |
… | |
32 | AnyEvent::post_detect { |
32 | AnyEvent::post_detect { |
33 | # assume the first ISA member is the implementation |
33 | # assume the first ISA member is the implementation |
34 | # # and link us in before it in the chain. |
34 | # # and link us in before it in the chain. |
35 | my $MODEL = shift @AnyEvent::ISA; |
35 | my $MODEL = shift @AnyEvent::ISA; |
36 | unshift @ISA, $MODEL; |
36 | unshift @ISA, $MODEL; |
37 | unshift @AnyEvent::ISA, AnyEvent::Strict:: |
37 | unshift @AnyEvent::ISA, AnyEvent::Strict::; |
38 | }; |
38 | }; |
39 | |
39 | |
40 | sub io { |
40 | sub io { |
41 | my $class = shift; |
41 | my $class = shift; |
42 | my %arg = @_; |
42 | my %arg = @_; |