| line |
true |
false |
branch |
|
35
|
117 |
0 |
if ($self->{'requires'}) |
|
39
|
0 |
6 |
unless $self->{'properties'}{$_} and defined $self->{'properties'}{$_}{'value'} |
|
47
|
13 |
628 |
if ($spec->{'trigger'}) |
|
50
|
422 |
219 |
if (ref($value || '') ne "CODE") |
|
52
|
9 |
1257 |
if ($spec->{$_}) |
|
54
|
9 |
0 |
if (defined $val) |
|
60
|
18 |
623 |
if ($spec->{'type'} and defined $value) |
|
64
|
0 |
18 |
$spec->{'coerce_type'} ? : |
|
66
|
1 |
17 |
if ($@) |
|
68
|
0 |
1 |
if ($caller[0] eq "Rope::Object") |
|
75
|
6 |
634 |
if ($spec->{'readonly'}) |
|
79
|
4 |
636 |
if ($spec->{'handles_via'}) { } |
|
82
|
2 |
0 |
$href eq 'HASH' ? : |
|
|
2 |
2 |
$href eq 'ARRAY' ? : |
|
87
|
1 |
639 |
if ($spec->{'required'} and not defined $spec->{'value'}) |
|
96
|
4 |
75 |
if ($key eq "locked") |
|
102
|
64 |
11 |
if ($k) { } |
|
|
7 |
4 |
elsif (not $self->{'locked'}) { } |
|
103
|
1 |
63 |
if ($k->{'private'}) |
|
105
|
1 |
0 |
unless ($self->current_caller =~ /^($priv)$/) |
|
110
|
36 |
27 |
if ($k->{'writeable'}) { } |
|
|
16 |
11 |
elsif ($k->{'configurable'}) { } |
|
113
|
16 |
0 |
if ((ref $value || '') eq (ref $k->{'value'} || '')) { } |
|
134
|
1 |
6 |
(ref $value || '') eq 'HASH' && grep({defined $value->{$_};} 'initable', 'writeable', 'configurable', 'enumerable') ? : |
|
145
|
134 |
792 |
unless defined $k->{'value'} |
|
146
|
7 |
785 |
if ($k->{'private'}) |
|
148
|
2 |
5 |
unless ($self->current_caller =~ /^($priv)$/) |
|
153
|
226 |
564 |
if (not $k->{'writeable'} || $k->{'configurable'} and (ref $k->{'value'} || '') eq "CODE") |
|
154
|
26 |
198 |
if ($k->{'before'} or $k->{'after'} or $k->{'around'}) |
|
158
|
1 |
13 |
if $k->{'before'} |
|
159
|
1 |
13 |
if scalar @new_params |
|
160
|
1 |
13 |
if ($k->{'around'}) { } |
|
165
|
12 |
2 |
if ($k->{'after'}) |
|
167
|
10 |
0 |
if scalar @new_params |
|
169
|
10 |
2 |
wantarray ? : |
|
174
|
20 |
742 |
if ($self->{'handles'}{$key} and not $self->{'properties'}{'ROPE_init'}) |
|
176
|
20 |
0 |
if ($k->{'value'}) |
|
198
|
0 |
0 |
if ($k->{'delete_trigger'}) |
|
201
|
0 |
0 |
!$_[0]{'locked'} && $k->{'writeable'} ? : |
|
202
|
0 |
0 |
if $del |
|
219
|
0 |
8 |
$self->{'with'} ? : |
|
|
3 |
5 |
$self->{'extends'} ? : |
|
225
|
8 |
14 |
unless ($call =~ /Rope(::(Object|Autoload|Monkey))?/) |