| line |
true |
false |
branch |
|
60
|
0 |
63 |
unless ref $args{'PATTERN'} eq 'CODE' |
|
61
|
0 |
63 |
if (defined($a = invalid_keys(\%_new_yatw, \%args))) |
|
97
|
30 |
0 |
wantarray ? : |
|
122
|
40 |
58 |
if (&$pattern($n{'node'})) |
|
130
|
31 |
9 |
if defined $f |
|
143
|
9 |
0 |
wantarray ? : |
|
150
|
0 |
989 |
if @_ |
|
156
|
0 |
0 |
if @_ |
|
182
|
36 |
840 |
if (UNIVERSAL::isa($node->child($i), 'Parse::Eyapp::Node::DELETE')) |
|
183
|
36 |
0 |
if defined splice(@{$$node{'children'};}, $i, 1) |
|
197
|
3 |
0 |
unless defined $k |
|
200
|
0 |
3 |
unless defined $ancestor |
|
211
|
0 |
1 |
unless defined $father |
|
222
|
1 |
2 |
if $_ == $before |
|
238
|
3 |
1 |
if ($task eq 'unshift') { } |
|
|
1 |
0 |
elsif ($task eq 'insert_before') { } |
|
254
|
0 |
989 |
unless my $node = $_[0] |
|
260
|
148 |
841 |
unless (ref $node and UNIVERSAL::can($node, 'children')) |
|
262
|
33 |
115 |
if $self->pattern->($_[0], $_[1], $index, $self) |
|
288
|
52 |
789 |
if ($self->pattern->($_[0], $_[1], $index, $self)) |