On Thu Oct 08 09:15:56 2015, softmoth wrote:
> #! /bin/sh
> 
> set -x
> if [ ! -r lib/A/B.pm6 ]; then
>     mkdir -p lib/A
>     echo 'class A { use A::B; }' > lib/A.pm6
>     echo 'class A::B { has $!foo is rw; }' > lib/A/B.pm6
> fi
> 
> perl6 --version
> perl6 -Ilib -e 'use A; say "OK";'
> 
> 
> + '[' '!' -r lib/A/B.pm6 ']'
> + mkdir -p lib/A
> + echo 'class A { use A::B; }'
> + echo 'class A::B { has $!foo is rw; }'
> + perl6 --version
> This is perl6 version 2015.09-273-g53969ab built on MoarVM version
> 2015.09-55-gf09c782
> + perl6 -Ilib -e 'use A; say "OK";'
> Use of uninitialized value % of type Any in string context
> Any of .^name, .perl, .gist, or .say can stringify undefined things,
> if needed.  in any mop_up_and_check at src/Perl6/World.nqp:401
> Potential difficulties:
>     useless use of 'is rw' on $!foo
>     at /home/tsmith/p6/tmp/lib/A/B.pm6:1
>     ------> class A::B { has $!foo is rw⏏; }
>       from :1
>       from -e:1
> OK

This now says:

+ perl6 --version
This is Rakudo version 2016.05 built on MoarVM version 2016.05
implementing Perl 6.c.
+ perl6 -Ilib -e 'use A; say "OK";'
Potential difficulties:
    useless use of 'is rw' on $!foo
    at /Users/williamcoleda/tm/lib/A/B.pm6 (A::B):1
    ------> class A::B { has $!foo is rw⏏; }
OK

Closable with tests.

-- 
Will "Coke" Coleda

Reply via email to