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; }