More proxy adventures

codeword.p6

class Codeword {
    has Sub $.scrambler is rw;
    has Str $!encoded-string;

    submethod BUILD {
        my sub scrambler { $^s.trans: 'a..mn..z' => 'n..za..m', :ii }
        $!scrambler = &scrambler;
        $!encoded-string = scrambler("good");
    }

    method codeword returns Str is rw {
        return Proxy.new(
            FETCH => sub ($)            { $!encoded-string },
            STORE => sub ($, Str $s)    { $!encoded-string = $!scrambler($s) }
        );
    }
}

my $code = Codeword.new;
$code.codeword;

some-kinda-loop

+ proxy-test.p6 (19 - 21)
|
| my $code = Codeword.new;
| say $code.encoded-string;
>
+ proxy-test.p6 (11 - 18)
|
|     method encoded-string returns Str is rw {
|         return Proxy.new(
|             FETCH => sub ($)            { $!encoded-string },
|             STORE => sub ($, Str $s)    { $!encoded-string = $!scrambler($...
|         );
|     }
| }
>
+ proxy-test.p6 (12 - 16)
|     method encoded-string returns Str is rw {
|         return Proxy.new(
|             FETCH => sub ($)            { $!encoded-string },
|             STORE => sub ($, Str $s)    { $!encoded-string = $!scrambler($...
|         );
>
+ proxy-test.p6 (12 - 16)
|     method encoded-string returns Str is rw {
|         return Proxy.new(
|             FETCH => sub ($)            { $!encoded-string },
|             STORE => sub ($, Str $s)    { $!encoded-string = $!scrambler($...
|         );
>
+ proxy-test.p6 (12 - 16)
|     method encoded-string returns Str is rw {
|         return Proxy.new(
|             FETCH => sub ($)            { $!encoded-string },
|             STORE => sub ($, Str $s)    { $!encoded-string = $!scrambler($...
|         );
>
+ proxy-test.p6 (12 - 16)
|     method encoded-string returns Str is rw {
|         return Proxy.new(
|             FETCH => sub ($)            { $!encoded-string },
|             STORE => sub ($, Str $s)    { $!encoded-string = $!scrambler($...
|         );
>
+ proxy-test.p6 (12 - 16)
|     method encoded-string returns Str is rw {
|         return Proxy.new(
|             FETCH => sub ($)            { $!encoded-string },
|             STORE => sub ($, Str $s)    { $!encoded-string = $!scrambler($...
|         );
>
+ proxy-test.p6 (12 - 16)
|     method encoded-string returns Str is rw {
|         return Proxy.new(
|             FETCH => sub ($)            { $!encoded-string },
|             STORE => sub ($, Str $s)    { $!encoded-string = $!scrambler($...
|         );
>
+ proxy-test.p6 (12 - 16)
|     method encoded-string returns Str is rw {
|         return Proxy.new(
|             FETCH => sub ($)            { $!encoded-string },
|             STORE => sub ($, Str $s)    { $!encoded-string = $!scrambler($...
|         );
>
+ proxy-test.p6 (12 - 16)
|     method encoded-string returns Str is rw {
|         return Proxy.new(
|             FETCH => sub ($)            { $!encoded-string },
|             STORE => sub ($, Str $s)    { $!encoded-string = $!scrambler($...
|         );
>
+ proxy-test.p6 (12 - 16)
|     method encoded-string returns Str is rw {
|         return Proxy.new(
|             FETCH => sub ($)            { $!encoded-string },
|             STORE => sub ($, Str $s)    { $!encoded-string = $!scrambler($...
|         );
>
+ proxy-test.p6 (12 - 16)
|     method encoded-string returns Str is rw {
|         return Proxy.new(
|             FETCH => sub ($)            { $!encoded-string },
|             STORE => sub ($, Str $s)    { $!encoded-string = $!scrambler($...
|         );
>
+ proxy-test.p6 (12 - 16)
|     method encoded-string returns Str is rw {
|         return Proxy.new(
|             FETCH => sub ($)            { $!encoded-string },
|             STORE => sub ($, Str $s)    { $!encoded-string = $!scrambler($...
|         );
>
+ proxy-test.p6 (12 - 16)
|     method encoded-string returns Str is rw {
|         return Proxy.new(
|             FETCH => sub ($)            { $!encoded-string },
|             STORE => sub ($, Str $s)    { $!encoded-string = $!scrambler($...
|         );
>
tbbq