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