Pragma — specify pragma's default value
The directive enables specified Interchange pragma by
setting it to "1" or a user-supplied value.
Interchange 5.9.0:
Source: lib/Vend/Config.pm
Line 3033 (context shows lines 3033-3058)
sub parse_boolean_value {
my($item,$settings) = @_;
my(@setting) = split /[\s,]+/, $settings;
my $c;
if(defined $C) {
$c = $C->{$item} || {};
}
else {
no strict 'refs';
$c = ${"Global::$item"} || {};
}
for (@setting) {
my ($k,$v);
if(/=/) {
($k,$v) = split /=/, $_, 2;
}
else {
$k = $_;
$v = 1;
}
$c->{$k} = $v;
}
return $c;
}