| line |
true |
false |
branch |
|
15
|
6475 |
17867 |
if ($props{'properties'}{$prop}{'value'} and ref $props{'properties'}{$prop}{'value'} eq "CODE") |
|
21
|
2288 |
46396 |
if ($props{'properties'}{$prop}{$_}) |
|
22
|
2144 |
144 |
$_ eq 'predicate' ? : |
|
25
|
2280 |
8 |
if (not $ref) { } |
|
|
4 |
4 |
elsif ($ref eq 'CODE') { } |
|
|
4 |
0 |
elsif ($ref eq 'HASH') { } |
|
28
|
39 |
25 |
defined $META{'initialised'}{$caller}{${$self;}->{'identifier'}}{$prop} ? : |
|
30
|
2276 |
4 |
$pred =~ /^\d+$/ ? : |
|
|
2140 |
140 |
$_ eq 'predicate' ? : |
|
44
|
2122 |
46562 |
if (defined $trigger) |
|
52
|
65 |
0 |
if (defined $mod and scalar @{$mod;}) |
|
61
|
25 |
14 |
if @new_params |
|
68
|
32 |
0 |
if (defined $mod and scalar @{$mod;}) |
|
76
|
3 |
41 |
unless $code |
|
80
|
41 |
3 |
$code ? : |
|
|
1 |
44 |
$stack[-1] ? : |
|
90
|
4 |
24338 |
if ($handles) |
|
91
|
2 |
2 |
unless $props{'handles'} |
|
99
|
151448 |
53644 |
unless $ref |
|
100
|
394 |
53250 |
if $ref eq "ARRAY" |
|
101
|
44151 |
9099 |
if $ref eq "HASH" |
|
106
|
26 |
331 |
if (exists $META{$caller}{'properties'}{$prop}) { } |
|
108
|
26 |
0 |
if ($META{$caller}{'properties'}{$prop}{'writeable'}) { } |
|
|
0 |
0 |
elsif ($META{$caller}{'properties'}{$prop}{'configurable'}) { } |
|
109
|
26 |
0 |
if exists $options{'value'} |
|
112
|
0 |
0 |
if ((ref $META{$caller}{'properties'}{$prop}{'value'} || '') eq (ref $options{'value'} || '')) { } |
|
113
|
0 |
0 |
if exists $options{'value'} |
|
132
|
0 |
4 |
if $_[0] and $_[0] eq $caller |
|
140
|
0 |
3 |
if $_[0] eq $caller |
|
142
|
0 |
3 |
if @options > 1 |
|
157
|
0 |
1 |
if $_[0] eq $caller |
|
159
|
0 |
1 |
if @options > 1 |
|
174
|
1 |
35 |
if $_[0] eq $caller |
|
176
|
0 |
36 |
if @options > 1 |
|
191
|
1 |
43 |
if $_[0] eq $caller |
|
196
|
1 |
143 |
if (not $ref or $ref ne "HASH" or not grep({defined $options->{$_};} "initable", "writeable", "builder", "enumerable", "configurable", "trigger", "clearer", "predicate", "delete_trigger", "value", "handles_via", "handles")) |
|
208
|
1 |
150 |
ref $prop ? : |
|
221
|
34 |
92 |
if $_[0] eq $caller |
|
223
|
0 |
126 |
if (scalar @options % 2) |
|
226
|
1 |
125 |
ref $prop ? : |
|
238
|
1 |
27 |
if $_[0] eq $caller |
|
242
|
1 |
35 |
ref $prop ? : |
|
259
|
0 |
9 |
if $_[0] eq $caller |
|
262
|
1 |
8 |
unless ($META{$with}) |
|
276
|
0 |
6 |
if ($initial->{'properties'}{$prop}{$_}) |
|
281
|
0 |
2 |
if $modifier |
|
282
|
0 |
2 |
if grep {$META{$with}{'properties'}{$prop}{$_};} "before", "around", "after" |
|
283
|
0 |
2 |
if (scalar keys %{$$merge{'properties'}{$prop};} > 1) { } |
|
284
|
0 |
0 |
if ($merge->{'properties'}{'writeable'}) { } |
|
|
0 |
0 |
elsif ($merge->{'properties'}{'configurable'}) { } |
|
287
|
0 |
0 |
if ((ref $merge->{'properties'}{$prop}{'value'} || '') eq ref($initial->{'properties'}{$prop}{'value'} || '')) { } |
|
307
|
0 |
25 |
if $_[0] eq $caller |
|
310
|
2 |
23 |
unless ($META{$extend}) |
|
323
|
0 |
6 |
if $initial->{'properties'}{$prop}{$_} |
|
325
|
0 |
2 |
if ($merge->{'properties'}{$prop}) { } |
|
326
|
0 |
0 |
if ($merge->{'properties'}{'writeable'}) { } |
|
|
0 |
0 |
elsif ($merge->{'properties'}{'configurable'}) { } |
|
329
|
0 |
0 |
if ((ref $merge->{'properties'}{$prop}{'value'} || '') eq ref($initial->{'properties'}{$prop}{'value'} || '')) { } |
|
351
|
0 |
8 |
if $_[0] eq $caller |
|
359
|
0 |
5 |
if $_[0] eq $caller |
|
367
|
11 |
6 |
if $_[0] eq $caller |
|
376
|
4 |
1 |
if (ref $self) { } |
|
388
|
6214 |
0 |
if (ref $self) |
|
397
|
6216 |
0 |
if (ref $self) |
|
406
|
1 |
6386 |
scalar @_ == 1 ? : |
|
414
|
0 |
15170 |
if $_ =~ /^_/ |
|
415
|
15167 |
3 |
if ($build->{'properties'}{$_}) { } |
|
416
|
15165 |
2 |
if ($build->{'properties'}{$_}{'initable'}) { } |
|
433
|
43 |
24290 |
if (not defined $build->{'properties'}{$_}{'value'} and defined $build->{'properties'}{$_}{'builder'}) |
|
435
|
43 |
0 |
ref $builder ? : |
|
439
|
1 |
6384 |
if (exists $build->{'properties'}{'INITIALISE'}) { } |
|
446
|
0 |
6382 |
if (exists $build->{'properties'}{'INITIALISED'}) { } |
|
456
|
10 |
150 |
if $options->{'no_import'} |
|
457
|
8 |
142 |
if $options->{'caller'} |
|
458
|
113 |
37 |
unless ($META{$caller}) |
|
467
|
12768 |
12 |
if ref $_[0] |
|
475
|
8 |
142 |
$options->{'import'} ? : |
|
485
|
34 |
8 |
unless ($META{$name}) |
|
507
|
8 |
34 |
if (grep {$_ eq "Rope::Monkey";} @{$$meta{"use"};}) |
|
557
|
11 |
31 |
if ($ref eq "ARRAY") |
|
558
|
4 |
7 |
if ((ref $value->[-1] || '') eq 'HASH' and $value->[-1]{'ROPE_scope'} eq 'ARRAY') { } |
|
|
3 |
4 |
elsif (ref $value->[0]) { } |
|
566
|
3 |
0 |
if ($rref eq "ARRAY") |
|
590
|
5 |
37 |
if ($ref eq 'HASH') { } |
|
|
4 |
33 |
elsif ($ref eq 'ARRAY') { } |
|
596
|
5 |
0 |
if ($rref eq "HASH") |
|
622
|
1 |
42 |
unless $name |
|
623
|
2 |
41 |
if defined $meta->{'locked'} |
|
624
|
1 |
1 |
ref $meta->{'requires'} eq 'ARRAY' ? : |
|
|
2 |
41 |
if $meta->{'requires'} |
|
625
|
1 |
42 |
if $meta->{'extends'} |
|
626
|
1 |
42 |
if $meta->{'with'} |
|
627
|
7 |
34 |
ref $meta->{'properties'} eq 'ARRAY' ? : |
|
|
41 |
2 |
if $meta->{'properties'} |
|
628
|
1 |
42 |
if $meta->{'INITIALISE'} |
|
629
|
1 |
42 |
if $meta->{'INITIALISED'} |