| line |
true |
false |
branch |
|
54
|
0 |
32 |
unless exists $setting_types{$typename} |
|
89
|
0 |
0 |
if @_ |
|
91
|
4 |
20 |
exists $args{'default'} ? : |
|
114
|
0 |
12 |
if @_ |
|
115
|
0 |
12 |
if defined $self->{$storage} |
|
116
|
4 |
8 |
if (my $parent = $self->parent) { } |
|
122
|
0 |
8 |
exists $args{'default'} ? : |
|
166
|
0 |
0 |
unless (defined $setting) |
|
169
|
0 |
0 |
unless keys %$settings |
|
171
|
0 |
0 |
if ($opt_values) { } |
|
177
|
0 |
0 |
if ($setting->{'type'}{'print'}) |
|
181
|
0 |
0 |
if ($setting->{'inheritable'} and $self->can("_setting_${settingname}_inherits")->($self)) |
|
185
|
0 |
0 |
defined $curvalue ? : |
|
208
|
0 |
0 |
unless (defined $cv) |
|
213
|
0 |
0 |
if ($opt_help) |
|
222
|
0 |
0 |
if (defined $newvalue or $opt_inherit) { } |
|
223
|
0 |
0 |
if (not $opt_inherit and $type->{'check'}) |
|
225
|
0 |
0 |
unless $type->{'check'}->($newvalue) |
|
229
|
0 |
0 |
if (not $opt_inherit and $type->{'parse'}) |
|
231
|
0 |
0 |
unless eval {
do {
$newvalue = $type->{'parse'}->($newvalue);
1
}
} |
|
235
|
0 |
0 |
if $opt_inherit |
|
242
|
0 |
0 |
if ($type->{'print'}) |
|
247
|
0 |
0 |
if (defined $curvalue) { } |
|
273
|
0 |
0 |
unless my $cv = $self->can("setting_$setting") |
|
275
|
0 |
0 |
if (not defined $value and defined(my $default = get_subattr($cv, 'Setting_default'))) |
|
279
|
0 |
0 |
if defined $value |
|
289
|
0 |
0 |
unless my $cv = $self->can("setting_$setting") |
|
291
|
0 |
0 |
if defined $value |