Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

30 lines (23 sloc) 0.831 kb
use v6;
use Test;
plan 7;
# L<S02/Package lookup/>
class A {
my $x = 10;
method x { $A::x = 5; return $A::x; }
our sub foo() { 'I am foo' };
method lexical() { $x }
}
isa_ok A::, Stash, 'Typename:: is a Stash';
ok A::<&foo>, 'can access a subroutine in the stash';
ok A:: === A.WHO, 'A:: returns the same as A.WHO';
# RT 74412
my $a = A.new;
is $a.x, 5,
'can autovivify an our-variable in a class package through its long name from class method';
is $a.lexical, 10, 'but a lexical of the same name is independent';
# RT 75632
lives_ok { my $A::y = 6; $A::y ~~ 6 or die },
'can declare and access variable in a class package through its long name from outside class';
lives_ok { my $B::x = 7; $B::x ~~ 7 or die },
'can declare and access variable through its long name without declaring package';
Jump to Line
Something went wrong with that request. Please try again.