| line |
l |
!l&&r |
!l&&!r |
condition |
|
354
|
0 |
0 |
0 |
$POST_DETECT ||= &AnyEvent::post_detect(sub {
undef $POST_DETECT;
return unless $WRAP_LEVEL;
(my $level, $WRAP_LEVEL) = ($WRAP_LEVEL, undef);
require AnyEvent::Strict unless $AnyEvent::Strict::VERSION;
&AnyEvent::post_detect(sub {
&wrap($level);
}
);
}
) |
|
477
|
0 |
0 |
0 |
$STRCACHE{$c[1]} ||= $c[1] |
|
542
|
0 |
0 |
0 |
$AnyEvent::Debug::STRCACHE{$file} ||= $file |
|
609
|
0 |
0 |
0 |
$_[0]{'str'} ||= do {
my($pkg, $line) = @{$_[0]{'caller'};};
my $mod = &AnyEvent::Debug::path2mod(${$_[0]{'rfile'};});
my $sub = $_[0]{'sub'};
if (defined $sub) {
$sub =~ s/^\Q$mod\E:://;
$sub = "($sub)";
} ;
"${mod}:$_[0]{'line'}$sub>$_[0]{'type'}>" . &AnyEvent::Debug::cb2str($_[0]{'cb'})
} |