| line |
true |
false |
branch |
|
25
|
330 |
5 |
_is_package($_[0]) ? : |
|
30
|
11 |
324 |
if (caller())[0] ne 'Data::SearchReplace' |
|
32
|
329 |
6 |
defined $_[1] ? : |
|
38
|
128 |
207 |
if defined $$attrib{'REGEX'} and length $$attrib{'REGEX'} |
|
40
|
17 |
318 |
if defined $$attrib{'CODE'} and length $$attrib{'CODE'} |
|
47
|
71 |
264 |
if (ref $var eq 'HASH') { } |
|
|
58 |
206 |
elsif (ref $var eq 'ARRAY') { } |
|
|
205 |
1 |
elsif (ref $var eq 'SCALAR') { } |
|
|
1 |
0 |
elsif (ref $var) { } |
|
52
|
114 |
91 |
if ($action eq 'SEARCH') { } |
|
|
80 |
11 |
elsif ($action eq 'REGEX') { } |
|
|
11 |
0 |
elsif ($action eq 'FUNCT') { } |
|
53
|
15 |
99 |
if $$var =~ s/$$attrib{'SEARCH'}/$$attrib{'REPLACE'}/g |
|
56
|
0 |
80 |
if $@ |
|
60
|
0 |
11 |
unless $$oldvar eq $$var |
|
70
|
89 |
78 |
ref $_[2]{$_} ? : |
|
72
|
30 |
127 |
ref $_ ? : |
|
75
|
0 |
335 |
unless defined $_[0] and ref $_[0] |
|
78
|
1985 |
5 |
unless ref $_[0] eq $_ |