Re: trying to use a role within a role

[Audrey Tang]

在 Sep 30, 2006 6:26 PM 時，Richard Hainsworth 寫到：


role win_text {
 has $.win_mytxt1 is rw;
 has $.win_mytxt2 is rw;
};

role mywindow {
 has $.border is rw;
 has $.colour is rw;
 does win_text;
};

my $w = new mywindow;

$w.border = 2;
$w.colour = 'red';
say $w.border;
say $w.colour;

$w.win_mytxt1 = 'quick red fox';
$w.win_mytxt2 = ' jumped over the lazy dog';
say $w.win_mytxt1 ~ $.win_mytxt2;


On the last line it should be $w.win_mytxt2, not $.win_mytxt2.

At this moment only role mywindow does win_text works; the
statement-level does form was not implemented, but I should be
able to do so in the next few days.   I've sent you a Pugs commit bit;
can you check this test of yours in under t/oo/ somewhere?

Thanks!
Audrey

Re: trying to use a role within a role

[Audrey Tang]

在 Oct 2, 2006 5:56 PM 時，Audrey Tang 寫到：


At this moment only role mywindow does win_text works; the
statement-level does form was not implemented, but I should be
able to do so in the next few days.


Update: It's now implemented as r13782.

Richard: The t/README file should get you started at writing (and  
committing) your first test; people on irc.freenode.net #perl6 will  
definitely help as well.
Pugs operates under a seek-forgiveness-not-permission model, so it's  
easiest to just copy a test in the same directory, modify it, and  
check it in.

If anything went wrong, the gnomes on #perl6 will fix it right away. :-)

Thanks!
Audrey