| line |
true |
false |
branch |
|
67
|
0 |
18 |
if exists $self->{'cond'}{$name} |
|
70
|
0 |
54 |
unless eval {
do {
$obj->can($method)
}
} |
|
81
|
0 |
0 |
$self->{'parent'} ? : |
|
89
|
0 |
0 |
if $self->{'cond'}{$name} |
|
90
|
0 |
0 |
if $self->{'parent'} |
|
100
|
0 |
0 |
unless $_[0] =~ s/^(\w+)\s*// |
|
106
|
0 |
0 |
if ($_[0] =~ /^\(/) |
|
108
|
0 |
0 |
unless defined $condspec |
|
115
|
0 |
0 |
if ($@) |
|
135
|
0 |
0 |
defined $argspec ? : |
|
171
|
0 |
17 |
if exists $self->{'action'}{$name} |
|
174
|
0 |
51 |
unless eval {
do {
$obj->can($method)
}
} |
|
185
|
0 |
0 |
$self->{'parent'} ? : |
|
193
|
0 |
0 |
if $self->{'action'}{$name} |
|
194
|
0 |
0 |
if $self->{'parent'} |
|
204
|
0 |
0 |
unless $_[0] =~ s/^(\w+)\s*// |
|
210
|
0 |
0 |
if ($_[0] =~ /^\(/) |
|
212
|
0 |
0 |
unless defined $actionspec |
|
219
|
0 |
0 |
if ($@) |
|
239
|
0 |
0 |
defined $argspec ? : |
|
297
|
0 |
4 |
unless my $chain = $self->{'chains'}{$chainname} |
|
345
|
0 |
0 |
unless @conds |
|
364
|
0 |
0 |
if $self->eval_cond($cond, $event, $results) |
|
384
|
0 |
0 |
unless @conds |
|
408
|
0 |
0 |
unless $self->eval_cond($cond, $event, $subresults) |