| line |
true |
false |
branch |
|
1282
|
0 |
83 |
if ${^TAINT}
|
|
1288
|
0 |
83 |
if ${^TAINT}
|
|
1293
|
0 |
83 |
length $ENV{'PERL_ANYEVENT_VERBOSE'} ? :
|
|
1309
|
0 |
0 |
defined wantarray ? :
|
|
1337
|
0 |
69 |
if ($_[0] <= ($VERBOSE || 1))
|
|
1384
|
39 |
0 |
$_[1] ? :
|
|
1427
|
2 |
14 |
if grep(($_ && $_->[1]), @isa_hook)
|
|
1435
|
1 |
0 |
$pkg ? :
|
|
1445
|
0 |
13 |
if $MODEL
|
|
1453
|
0 |
13 |
if exists $INC{'IO/Async/Loop/AnyEvent.pm'}
|
|
1468
|
0 |
13 |
if ($ENV{'PERL_ANYEVENT_MODEL'} =~ /^([a-zA-Z0-9:]+)$/)
|
|
1470
|
0 |
0 |
unless $model =~ s/::$//
|
|
1471
|
0 |
0 |
if (eval "require $model") { }
|
|
1480
|
13 |
0 |
unless ($MODEL)
|
|
1483
|
11 |
41 |
if (${"${package}::VERSION";} > 0)
|
|
1484
|
11 |
0 |
if (eval "require $model") { }
|
|
1494
|
2 |
11 |
unless ($MODEL)
|
|
1498
|
2 |
0 |
if (eval "require $package" and ${"${package}::VERSION";} > 0 and eval "require $model")
|
|
1510
|
0 |
2 |
unless $MODEL
|
|
1524
|
19 |
33 |
if defined &{"${MODEL}::$_";}
|
|
1531
|
0 |
13 |
if ($ENV{'PERL_ANYEVENT_STRICT'})
|
|
1535
|
0 |
13 |
if ($ENV{'PERL_ANYEVENT_DEBUG_WRAP'})
|
|
1540
|
0 |
13 |
if (length $ENV{'PERL_ANYEVENT_DEBUG_SHELL'})
|
|
1583
|
0 |
0 |
$poll eq 'r' ? :
|
|
1585
|
0 |
0 |
unless open my $fh2, $mode, $fh
|
|
1608
|
0 |
2 |
@_ ? :
|
|
1651
|
0 |
85 |
if $@
|
|
1676
|
0 |
0 |
if $@
|
|
1692
|
9 |
73 |
@_ ? :
|
|
|
17 |
14 |
@_ == 3 ? :
|
|
1701
|
0 |
13 |
if $@
|
|
1712
|
3 |
3 |
unless defined $HAVE_ASYNC_INTERRUPT
|
|
1725
|
0 |
0 |
unless ($SIG_COUNT++)
|
|
1738
|
0 |
9 |
unless --$SIG_COUNT
|
|
1774
|
6 |
6 |
$HAVE_ASYNC_INTERRUPT ? :
|
|
1874
|
8 |
3 |
if $@
|
|
1890
|
13 |
7 |
unless $PID_CB{$rpid}
|
|
1891
|
18 |
5 |
unless $PID_CB{'0'}
|
|
1929
|
0 |
14 |
if $@
|
|
1972
|
0 |
0 |
if $@
|
|
2012
|
11 |
79 |
if $cv->{'_ae_cb'}
|
|
2026
|
45 |
41 |
unless ($_[0]{'_ae_sent'})
|
|
2027
|
0 |
45 |
if $WAITING
|
|
2035
|
2 |
84 |
if $_[0]{'_ae_croak'}
|
|
2039
|
34 |
50 |
wantarray ? :
|
|
2048
|
0 |
2 |
if @_ and $cv->{'_ae_cb'} = shift() and $cv->{'_ae_sent'}
|
|
2055
|
1 |
24 |
if @_ > 1
|
|
2059
|
13 |
12 |
if --$_[0]{'_ae_counter'}
|
|
2060
|
11 |
1 |
unless $_[0]{'_ae_end_cb'}
|