Re: trying to use a role within a role
在 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
Re: trying to use a role within a role
在 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