DifferentSecure — (obsolete)
Interchange 5.0.1:
Source: lib/Vend/Config.pm
Line 2114 (context shows lines 2114-2131)
sub parse_boolean {
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) {
$c->{$_} = 1;
}
return $c;
}