| line |
true |
false |
branch |
|
34
|
0 |
15 |
unless eval 'sub Devel::OptreeDiff' . qq[::optree_$method {\n local %SIDES;\n my \@a = as_string( a =>\n svref_2object( \$_[0] )->ROOT );\n my \@b = as_string( b =>\n svref_2object( \$_[1] )->ROOT );\n my \@a_names = map { s/^(\\S+) // ? \$1 : \$_ } \@a;\n my \@b_names = map { s/^(\\S+) // ?\$1 : \$_ } \@b;\n\n my \@diff = \n Algorithm::Diff::$method\n ( # The first two parameters are transformed into the\n # data that this module will be capable of handling\n # a diff on.\n \\\@a, \\\@b,\n \n # All the additional parameters, if any are passed\n # directly through to Algorithm::Diff::$method\n \@_[ 2 .. \$#_ ]);\n\n for my \$chunk ( \@diff )\n {\n for my \$line ( \@\$chunk )\n {\n \$line->[2] = ( \$line->[0] eq '+'\n ? \$b_names[\$line->[1]]\n : \$a_names[\$line->[1]] )\n . ".\$line->[2]";\n \$line->[2] =~ s/^([^.]+)\\.\\1\\s*/\$1/;\n }\n }\n \@diff;\n }\n\n 1 ] |
|
|
0 |
0 |
s/^(\S+) // ? : |
|
|
0 |
0 |
s/^(\S+) // ? : |
|
|
0 |
0 |
$$line[0] eq '+' ? : |
|
|
88 |
26 |
s/^(\S+) // ? : |
|
|
68 |
20 |
s/^(\S+) // ? : |
|
|
13 |
39 |
$$line[0] eq '+' ? : |
|
|
0 |
0 |
s/^(\S+) // ? : |
|
|
0 |
0 |
s/^(\S+) // ? : |
|
|
0 |
0 |
$$line[0] eq '+' ? : |
|
|
0 |
0 |
s/^(\S+) // ? : |
|
|
0 |
0 |
s/^(\S+) // ? : |
|
|
0 |
0 |
$$line[0] eq '+' ? : |
|
|
0 |
0 |
s/^(\S+) // ? : |
|
|
0 |
0 |
s/^(\S+) // ? : |
|
|
0 |
0 |
$$line[0] eq '+' ? : |
|
80
|
19 |
33 |
$seen{$1}++ ? : |
|
109
|
58 |
559 |
$a ne 'name' && $b eq 'name' ? : |
|
|
80 |
617 |
$a eq 'name' && $b ne 'name' ? : |
|
119
|
156 |
12 |
defined $$node{$_} ? : |
|
|
46 |
168 |
$_ eq 'name' ? : |
|
135
|
4 |
42 |
if (not $rel_from) { } |
|
142
|
159 |
60 |
if (grep(($_ eq 'first'), keys %$rel_from)) { } |
|
|
60 |
0 |
elsif (grep(($_ eq 'sibling'), keys %$rel_from)) { } |
|
162
|
0 |
0 |
unless $_[0] |
|
173
|
0 |
74 |
unless ref $to |
|
176
|
32 |
42 |
unless $from and $to |
|
188
|
0 |
6 |
unless eval qq[sub ${_}_CHECK {\n return if not \$LINKS{ '\L$_\E' }{ \$_[0] };\n push \@NODES, "->$_";\n }\n 1 ] |
|
|
46 |
0 |
unless $Devel::OptreeDiff::LINKS{'first'}{$_[0]} |
|
|
46 |
0 |
unless $Devel::OptreeDiff::LINKS{'sibling'}{$_[0]} |
|
203
|
0 |
46 |
unless $$op |
|
206
|
0 |
46 |
if $class eq 'NULL' |
|
278
|
4 |
0 |
class($op->io) eq 'SPECIAL' ? : |
|
312
|
0 |
0 |
$$sv == ${sv_undef();} ? : |
|
324
|
0 |
0 |
if ($$sv) |
|
343
|
0 |
0 |
unless defined $pv |