| line |
true |
false |
branch |
|
27
|
12 |
42 |
unless ref $prop eq 'HASH' |
|
30
|
44 |
10 |
unless ref $prop->{'name'} eq 'ARRAY' |
|
32
|
54 |
0 |
unless ref $prop->{'allowed'} eq 'ARRAY' |
|
49
|
0 |
235 |
if @_ > 2 |
|
59
|
22 |
52 |
$gr ? : |
|
|
15 |
62 |
$gr ? : |
|
|
18 |
66 |
$gr ? : |
|
|
77 |
84 |
$tool =~ /^Package/ ? : |
|
|
74 |
161 |
$tool =~ /^Class/ ? : |
|
61
|
168 |
67 |
if ($to_tie) { } |
|
72
|
44 |
191 |
@_ == 2 ? : |
|
90
|
58 |
44 |
if (defined ${$_[0][2];}) { } |
|
|
44 |
0 |
elsif (defined $_[0][3]{'default'}) { } |
|
97
|
10 |
34 |
ref $_[0][3]{'default'} eq 'CODE' ? : |
|
98
|
0 |
44 |
$_[0][3]{'no_strict'} ? : |
|
107
|
2 |
100 |
defined $_[0][3]{'post_process'} ? : |
|
114
|
44 |
84 |
$from_FETCH ? : |
|
117
|
18 |
5 |
if ($_[0][3]{'protected'} and not $from_FETCH and not $Class::props::force) |
|
123
|
6 |
30 |
unless my $caller = caller $f++ |
|
126
|
6 |
12 |
unless $OK |
|
128
|
0 |
0 |
if ($_[0][3]{'allowed'} and not $from_FETCH and not $Class::props::force) |
|
134
|
0 |
0 |
unless my $caller = (caller $f++)[3] |
|
137
|
0 |
0 |
unless $OK |
|
140
|
41 |
81 |
if (defined $_[0][3]{'validation'} and defined $_) |
|
143
|
6 |
35 |
unless $_[0][3]{'validation'}->($_[0][0], $_) |