| line |
true |
false |
branch |
|
107
|
16 |
0 |
if ($crit) |
|
108
|
0 |
16 |
unless $self->add_criteria(%$crit) |
|
110
|
10 |
6 |
unless ($nocomp) |
|
111
|
0 |
10 |
unless $self->compile |
|
138
|
0 |
0 |
unless $$self{'exec_sub'} |
|
145
|
2 |
31 |
unless $$self{'exec_sub'} |
|
152
|
12 |
6 |
unless @_ > 0 |
|
162
|
0 |
48 |
unless $match and $hdlr |
|
171
|
19 |
0 |
if ($mode = $$self{'access_tbl'}{$mode}) |
|
184
|
0 |
0 |
unless (not $mode && $getter or $$a_tbl{$mode}) |
|
197
|
16 |
39 |
if $crit |
|
210
|
0 |
68 |
unless $sub |
|
215
|
68 |
0 |
ref $sub eq '' ? : |
|
225
|
0 |
55 |
if ($@ or not $exec_sub) |
|
229
|
0 |
55 |
$@ ? : |
|
240
|
0 |
68 |
if $sub |
|
249
|
208 |
68 |
unless @args = $crit =~ /$_/ |
|
251
|
68 |
0 |
if ($sub) |
|
253
|
0 |
0 |
exists &$sub ? : |
|
|
0 |
68 |
unless UNIVERSAL::can($self, $sub) |
|
259
|
68 |
0 |
if $sub |
|
277
|
2 |
65 |
unless &$_(@args) |
|
292
|
0 |
16 |
unless $attr |
|
300
|
14 |
1 |
ref $_[0] && (local $_ = &$getter($_[0], $attr)) ? : |
|
312
|
0 |
4 |
unless $attr |
|
315
|
0 |
4 |
unless ref $val eq 'ARRAY' |
|
324
|
4 |
0 |
if (ref $_[0] and $v = &$getter($_[0], $attr)) |
|
327
|
4 |
28 |
if $v eq $_ |
|
339
|
0 |
4 |
unless $attr |
|
348
|
4 |
0 |
/$val/ ? : |
|
357
|
0 |
4 |
unless $attr |
|
365
|
4 |
0 |
ref $_[0] && (local $_ = &$getter($_[0], $attr)) ? : |
|
377
|
0 |
4 |
unless $attr |
|
385
|
4 |
0 |
ref $_[0] && (local $_ = &$getter($_[0], $attr)) ? : |
|
397
|
0 |
4 |
unless $attr |
|
405
|
4 |
0 |
ref $_[0] && (local $_ = &$getter($_[0], $attr)) ? : |