| line |
true |
false |
branch |
|
52
|
0 |
23 |
unless exists $setting_types{$typename} |
|
87
|
0 |
0 |
if @_ |
|
89
|
4 |
11 |
exists $args{'default'} ? : |
|
112
|
0 |
0 |
if @_ |
|
113
|
0 |
0 |
if defined $self->{$storage} |
|
114
|
0 |
0 |
if (my $parent = $self->parent) { } |
|
120
|
0 |
8 |
exists $args{'default'} ? : |
|
164
|
0 |
0 |
unless (defined $setting) |
|
167
|
0 |
0 |
unless keys %$settings |
|
169
|
0 |
0 |
if ($opt_values) { } |
|
175
|
0 |
0 |
if ($setting->{'type'}{'print'}) |
|
179
|
0 |
0 |
if ($setting->{'inheritable'} and $self->can("_setting_${settingname}_inherits")->($self)) |
|
183
|
0 |
0 |
defined $curvalue ? : |
|
206
|
0 |
0 |
unless (defined $cv) |
|
211
|
0 |
0 |
if ($opt_help) |
|
220
|
0 |
0 |
if (defined $newvalue or $opt_inherit) { } |
|
221
|
0 |
0 |
if (not $opt_inherit and $type->{'check'}) |
|
223
|
0 |
0 |
unless $type->{'check'}->($newvalue) |
|
227
|
0 |
0 |
if (not $opt_inherit and $type->{'parse'}) |
|
229
|
0 |
0 |
unless eval {
do {
$newvalue = $type->{'parse'}->($newvalue);
1
}
} |
|
233
|
0 |
0 |
if $opt_inherit |
|
240
|
0 |
0 |
if ($type->{'print'}) |
|
245
|
0 |
0 |
if (defined $curvalue) { } |
|
271
|
0 |
0 |
unless my $cv = $self->can("setting_$setting") |
|
273
|
0 |
0 |
if (not defined $value and defined(my $default = get_subattr($cv, 'Setting_default'))) |
|
277
|
0 |
0 |
if defined $value |
|
287
|
0 |
0 |
unless my $cv = $self->can("setting_$setting") |
|
289
|
0 |
0 |
if defined $value |