names.p6

class Wordlist {
        has $.file = '/usr/share/dict/words';
        has $.downcase = False;
        has $!source handles 'pull-one';

        method BUILDALL(|c) {
                callsame;
                if not defined $!source {
                        warn "\$!source={$!source.perl}";
                        warn "args={|c.perl} named={|c.hash.perl}";
                        if %(|c.hash){'source'}:exists {
                                die "'source' key passed, but not initialized";
                        }
                        $!source = open($!file);
                }
        }
}

sub first(@list) { for @list -> $item { return $item; } }

my $wl = Wordlist.new(:source<apple pear orange>);
say "Word from first feed: ", first($wl);
$wl = Wordlist.new(:file<./words>);
say "Word from second feed: ", first($wl);