| line |
true |
false |
branch |
|
34
|
1 |
0 |
unless @_ |
|
36
|
1 |
0 |
if ($key eq ':all') { } |
|
39
|
0 |
0 |
unless grep /^$key$/, @defs |
|
77
|
0 |
1 |
if substr($prop, 0, 1) eq '_' |
|
79
|
0 |
1 |
if exists $NON_PROPS{$prop} |
|
94
|
479 |
84 |
$orig ? : |
|
106
|
4 |
4 |
if passed_on($prop) |
|
130
|
1208 |
207 |
ref $_[0] eq 'Scalar::Properties' ? : |
|
141
|
0 |
1 |
if $_[2] |
|
|
0 |
0 |
if $_[2] |
|
|
0 |
2 |
if $_[2] |
|
|
0 |
0 |
if $_[2] |
|
|
30 |
23 |
if $_[2] |
|
|
0 |
0 |
if $_[2] |
|
|
0 |
5 |
if $_[2] |
|
|
0 |
3 |
if $_[2] |
|
|
0 |
5 |
if $_[2] |
|
|
0 |
3 |
if $_[2] |
|
|
2 |
6 |
if $_[2] |
|
|
0 |
0 |
if $_[2] |
|
|
0 |
3 |
if $_[2] |
|
|
13 |
42 |
if $_[2] |
|
|
0 |
160 |
if $_[2] |
|
|
0 |
2 |
if $_[2] |
|
142
|
0 |
31 |
if $@ |
|
205
|
3 |
4 |
@_ ? : |
|
218
|
2 |
3 |
unless ref $pat eq 'Regexp' |
|
226
|
0 |
5 |
if $@ |
|
233
|
0 |
2 |
unless ref $sub eq 'CODE' |
|
241
|
0 |
3 |
unless ref $sub eq 'CODE' |
|
254
|
0 |
3 |
unless ref $sub eq 'CODE' |
|
268
|
0 |
29 |
if $prop eq 'DESTROY' or substr($prop, 0, 1) eq '_' |
|
272
|
3 |
26 |
if substr($prop, 0, 4) eq 'has_' |
|
275
|
8 |
18 |
if substr($prop, 0, 3) eq 'is_' |
|
278
|
12 |
6 |
if (@_) |