Klassen-Attribute nur für einen Methodenaufruf überschreiben - #183477 (Raku / Perl 6)

Kuerbis

2016-01-12 08:50

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

Hier geht es darum, dass die an die Methode choose übergebenen Optionen nur für den einen Aufruf gültig sind, aber nicht die mit new gesetzten Attribute global überschreiben.

Eine Alternative zu meinem obigen Beispiel - hier müsste ich aber die übergebenen Optionen von Hand validieren:

Code (perl): (dl )

#!/usr/bin/env perl6
use v6;

class Term::Choose {
    has Str $.prompt = 'Your Choice';
    has Int @.mark;
    has     %!opt;

    method choose ( Array $orig_list, %!opt? ) {
        %!opt<prompt> //= $.prompt;
        say "prompt: %!opt<prompt>"   with %!opt<prompt>;
        %!opt<mark>   //= [ @.mark ];
        say "mark  : %!opt<mark>[]\n" with %!opt<mark>;
    }
}

my $n = Term::Choose.new( prompt => 'AAAAA', mark => [ 5, 6 ] );
$n.choose( [ 1 .. 10 ] );
$n.choose( [ 1 .. 10 ], { prompt => 'BBBBB', mark => [ 1 .. 4 ] } );
$n.choose( [ 1 .. 10 ] );