| line |
true |
false |
branch |
|
67
|
8 |
460 |
unless blessed($_[0]) and $_[0]->isa('Regexp::Wildcards') |
|
110
|
26 |
40 |
unless defined $old |
|
113
|
47 |
19 |
if (@_ <= 1) { } |
|
|
2 |
17 |
elsif (@_ % 2) { } |
|
114
|
30 |
17 |
defined $_[0] ? : |
|
124
|
120 |
64 |
unless defined $opt |
|
132
|
4 |
60 |
unless $cb |
|
136
|
49 |
11 |
exists $checked{'set'} ? : |
|
137
|
53 |
7 |
unless $checked{'add'} |
|
139
|
56 |
4 |
unless $checked{'rem'} |
|
174
|
93 |
31 |
if $captures{$_} |
|
193
|
9 |
9 |
unless defined $type |
|
194
|
2 |
16 |
unless exists $types{$type} |
|
216
|
1 |
13 |
if @_ % 2 |
|
221
|
4 |
9 |
if (defined $args{'do'}) { } |
|
476
|
4 |
326 |
defined $type ? : |
|
477
|
1 |
328 |
unless defined $wc |
|
496
|
201 |
127 |
if $$do{'jokers'} |
|
497
|
175 |
153 |
if $$do{'sql'} |
|
498
|
40 |
288 |
if ($$do{'brackets'}) { } |
|
|
7 |
561 |
elsif ($$do{'commas'} and $wc =~ /(?
|