一个perl6文档中的例子， 为什么没有打印结果？

522468522

1. use v6;
   
2. class Human {
   
3.   has $name;
   
4.   has $age;
   
5.   has $sex;
   
6.   has $nationality;
   
7. }
   
8. 
   
9. my $john = Human.new(name => 'John', age => 23, sex => 'M', nationality => 'American');
   
10. say $john;
    

复制代码

打印只显示了:
Human.new

为什么不打印属性的值？
这是perl6文档里的一个例子:



求解说， 谢谢。
我觉得应打印出所有属性值。

因为我试了say $john没有打印， 而say $john.name也没打印， 我的猜测是：
my @a = 1,2,3;
@a.pop()
这个.是访问方法用的， 如果写成$john.name会提示方法error：

我的perl6版本号为:

MMMIX

回复 1# 522468522

是正确的结果，继续往下看文档，后面有解释。

小perl

1、不带点的属性默认是私有的， 在对象外面访问不到
2、应该重写 gist 方法

1. use v6;
   
2. class Human {
   
3.   has $.name;
   
4.   has $age;
   
5.   has $sex;
   
6.   has $nationality;
   
7.   
   
8.   method gist() {
   
9.       return "Human: $!name";
   
10.   }
    
11. }
    
12. 
    
13. my $john = Human.new(name => 'John', age => 23, sex => 'M', nationality => 'American');
    
14. say $john.name;
    
15. say $john;
    

复制代码

522468522

回复 3# 小perl

那，
$name
$!name
一样？

小perl

回复 4# 522468522

你试试，结果就是一样的。 perl6intro 里也讲了的。