| line |
true |
false |
branch |
|
15
|
83 |
374 |
if ($props{'properties'}{$prop}{'value'} and ref $props{'properties'}{$prop}{'value'} eq "CODE") |
|
21
|
16 |
898 |
if ($props{'properties'}{$prop}{$_}) |
|
22
|
8 |
8 |
$_ eq 'predicate' ? : |
|
25
|
8 |
8 |
if (not $ref) { } |
|
|
4 |
4 |
elsif ($ref eq 'CODE') { } |
|
|
4 |
0 |
elsif ($ref eq 'HASH') { } |
|
28
|
4 |
0 |
defined $META{'initialised'}{$caller}{${$self;}->{'identifier'}}{$prop} ? : |
|
30
|
4 |
4 |
$pred =~ /^\d+$/ ? : |
|
|
4 |
4 |
$_ eq 'predicate' ? : |
|
44
|
5 |
909 |
if (defined $trigger) |
|
52
|
13 |
0 |
if (defined $mod and scalar @{$mod;}) |
|
61
|
13 |
14 |
if @new_params |
|
68
|
2 |
0 |
if (defined $mod and scalar @{$mod;}) |
|
76
|
3 |
1 |
unless $code |
|
80
|
1 |
3 |
$code ? : |
|
|
1 |
4 |
$stack[-1] ? : |
|
90
|
4 |
453 |
if ($handles) |
|
91
|
2 |
2 |
unless $props{'handles'} |
|
99
|
4135 |
2004 |
unless $ref |
|
100
|
192 |
1812 |
if $ref eq "ARRAY" |
|
101
|
1365 |
447 |
if $ref eq "HASH" |
|
106
|
26 |
250 |
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 |
3 |
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 |
19 |
if $_[0] eq $caller |
|
176
|
0 |
20 |
if @options > 1 |
|
191
|
1 |
33 |
if $_[0] eq $caller |
|
196
|
1 |
123 |
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 |
130 |
ref $prop ? : |
|
221
|
34 |
56 |
if $_[0] eq $caller |
|
223
|
0 |
90 |
if (scalar @options % 2) |
|
226
|
1 |
89 |
ref $prop ? : |
|
238
|
1 |
20 |
if $_[0] eq $caller |
|
242
|
1 |
26 |
ref $prop ? : |
|
259
|
0 |
3 |
if $_[0] eq $caller |
|
262
|
1 |
2 |
unless ($META{$with}) |
|
276
|
0 |
0 |
if ($initial->{'properties'}{$prop}{$_}) |
|
281
|
0 |
0 |
if $modifier |
|
282
|
0 |
0 |
if grep {$META{$with}{'properties'}{$prop}{$_};} "before", "around", "after" |
|
283
|
0 |
0 |
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 |
17 |
if $_[0] eq $caller |
|
310
|
2 |
15 |
unless ($META{$extend}) |
|
323
|
0 |
0 |
if $initial->{'properties'}{$prop}{$_} |
|
325
|
0 |
0 |
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 |
3 |
if $_[0] eq $caller |
|
359
|
0 |
3 |
if $_[0] eq $caller |
|
367
|
11 |
3 |
if $_[0] eq $caller |
|
376
|
4 |
1 |
if (ref $self) { } |
|
388
|
2 |
0 |
if (ref $self) |
|
397
|
3 |
0 |
if (ref $self) |
|
406
|
0 |
119 |
scalar @_ == 1 ? : |
|
414
|
0 |
24 |
if $_ =~ /^_/ |
|
415
|
22 |
2 |
if ($build->{'properties'}{$_}) { } |
|
416
|
21 |
1 |
if ($build->{'properties'}{$_}{'initable'}) { } |
|
433
|
19 |
429 |
if (not defined $build->{'properties'}{$_}{'value'} and defined $build->{'properties'}{$_}{'builder'}) |
|
435
|
19 |
0 |
ref $builder ? : |
|
439
|
1 |
117 |
if (exists $build->{'properties'}{'INITIALISE'}) { } |
|
446
|
0 |
117 |
if (exists $build->{'properties'}{'INITIALISED'}) { } |
|
456
|
4 |
104 |
if $options->{'no_import'} |
|
457
|
3 |
101 |
if $options->{'caller'} |
|
458
|
80 |
24 |
unless ($META{$caller}) |
|
467
|
234 |
12 |
if ref $_[0] |
|
475
|
3 |
101 |
$options->{'import'} ? : |
|
485
|
24 |
8 |
unless ($META{$name}) |
|
507
|
8 |
24 |
if (grep {$_ eq "Rope::Monkey";} @{$$meta{"use"};}) |
|
557
|
9 |
27 |
if ($ref eq "ARRAY") |
|
558
|
3 |
6 |
if ((ref $value->[-1] || '') eq 'HASH' and $value->[-1]{'ROPE_scope'} eq 'ARRAY') { } |
|
|
3 |
3 |
elsif (ref $value->[0]) { } |
|
566
|
3 |
0 |
if ($rref eq "ARRAY") |
|
590
|
3 |
30 |
if ($ref eq 'HASH') { } |
|
|
3 |
27 |
elsif ($ref eq 'ARRAY') { } |
|
596
|
3 |
0 |
if ($rref eq "HASH") |
|
622
|
1 |
32 |
unless $name |
|
623
|
2 |
31 |
if defined $meta->{'locked'} |
|
624
|
1 |
1 |
ref $meta->{'requires'} eq 'ARRAY' ? : |
|
|
2 |
31 |
if $meta->{'requires'} |
|
625
|
1 |
32 |
if $meta->{'extends'} |
|
626
|
1 |
32 |
if $meta->{'with'} |
|
627
|
7 |
24 |
ref $meta->{'properties'} eq 'ARRAY' ? : |
|
|
31 |
2 |
if $meta->{'properties'} |
|
628
|
1 |
32 |
if $meta->{'INITIALISE'} |
|
629
|
1 |
32 |
if $meta->{'INITIALISED'} |