| … | |
… | |
| 233 | unless (defined $PREV_LEVEL) { |
233 | unless (defined $PREV_LEVEL) { |
| 234 | AnyEvent::Debug::Wrapped::_init (); |
234 | AnyEvent::Debug::Wrapped::_init (); |
| 235 | } |
235 | } |
| 236 | |
236 | |
| 237 | if ($WRAP_LEVEL && !$PREV_LEVEL) { |
237 | if ($WRAP_LEVEL && !$PREV_LEVEL) { |
| 238 | require AnyEvent::Strict; |
|
|
| 239 | @AnyEvent::Debug::Wrap::ISA = @AnyEvent::ISA; |
|
|
| 240 | @AnyEvent::ISA = "AnyEvent::Debug::Wrap"; |
238 | AnyEvent::_isa_hook 1 => "AnyEvent::Debug::Wrap", 1; |
| 241 | AE::_reset; |
|
|
| 242 | AnyEvent::Debug::Wrap::_reset (); |
239 | AnyEvent::Debug::Wrap::_reset (); |
| 243 | } elsif (!$WRAP_LEVEL && $PREV_LEVEL) { |
240 | } elsif (!$WRAP_LEVEL && $PREV_LEVEL) { |
| 244 | @AnyEvent::ISA = @AnyEvent::Debug::Wrap::ISA; |
241 | AnyEvent::_isa_hook 0 => undef; |
| 245 | } |
242 | } |
| 246 | } else { |
243 | } else { |
| 247 | $POST_DETECT ||= AnyEvent::post_detect { |
244 | $POST_DETECT ||= AnyEvent::post_detect { |
| 248 | undef $POST_DETECT; |
245 | undef $POST_DETECT; |
| 249 | return unless $WRAP_LEVEL; |
246 | return unless $WRAP_LEVEL; |
