Frage zu Rückgabewerten - #183908 (Raku / Perl 6)

Kuerbis

2016-02-15 18:45

User since
2011-03-20
947 Artikel
BenutzerIn
[default_avatar]

Wie kann die Funktion das wissen, wenn ich es ihr nicht sage? In der Config-Datei steht jeweils nur der Namen und der gerade gesetzte Wert.
Oder war das so gemeint, dass der Name der Funktion unpassend ist?
Das ist ein Perl5 Beispiel:

Code (perl): (dl )

#!/usr/bin/env perl
use warnings;
use strict;
use 5.10.0;
use Term::Choose::Util qw( change_config );
use Data::Dumper;

my $menu = [
    [ 'enable_logging', "- Enable logging", [ 'NO', 'YES' ] ],
    [ 'case_sensitive', "- Case sensitive", [ 'NO', 'YES' ] ],
    [ 'color'         , "- Color of ...  ", [ 'Red', 'Green', 'Blue' ] ],
];

my $config = {
    'enable_logging' => 0,
    'case_sensitive' => 1,
    'color'          => 2,
};

change_config( $menu, $config, { in_place => 1 } );

say Dumper $config;