| line |
true |
false |
branch |
|
66
|
0 |
63 |
unless ref $args{'PATTERN'} eq 'CODE' |
|
67
|
0 |
63 |
if (defined($a = invalid_keys(\%_new_yatw, \%args))) |
|
103
|
30 |
0 |
wantarray ? : |
|
128
|
40 |
58 |
if (&$pattern($n{'node'})) |
|
136
|
31 |
9 |
if defined $f |
|
149
|
9 |
0 |
wantarray ? : |
|
156
|
0 |
989 |
if @_ |
|
162
|
0 |
0 |
if @_ |
|
188
|
36 |
840 |
if (UNIVERSAL::isa($node->child($i), 'Parse::Eyapp::Node::DELETE')) |
|
189
|
36 |
0 |
if defined splice(@{$$node{'children'};}, $i, 1) |
|
203
|
3 |
0 |
unless defined $k |
|
206
|
0 |
3 |
unless defined $ancestor |
|
217
|
0 |
1 |
unless defined $father |
|
228
|
1 |
2 |
if $_ == $before |
|
244
|
3 |
1 |
if ($task eq 'unshift') { } |
|
|
1 |
0 |
elsif ($task eq 'insert_before') { } |
|
260
|
0 |
989 |
unless my $node = $_[0] |
|
266
|
148 |
841 |
unless (ref $node and UNIVERSAL::can($node, 'children')) |
|
268
|
33 |
115 |
if $self->pattern->($_[0], $_[1], $index, $self) |
|
294
|
52 |
789 |
if ($self->pattern->($_[0], $_[1], $index, $self)) |