Dateish字符串的问题

时间:2018-05-12 17:57:14

标签: date mixins perl6

此代码(用于检查当前目录的更改时间戳):

my $date = ".".IO.changed.DateTime.yyyy-mm-dd but Dateish; 
say $date;

产生错误:

«Ambiguous call to 'gist(Str+{Dateish}: )'; these signatures all match:␤:  (Str:D: *%_)␤:(Dateish:D:   │ avalenn
                 | *%_)␤  in block <unit> at <tmp> line 1␤␤»

如果没有Dateish mix in,字符串只是2018-05-12。使用任何其他类型的Dateish函数(如.week-year)也会产生不同的错误:

«Str+{Dateish}␤Invocant of method 'Bridge' must be an object instance of type 'Int', not a type      │ a3r0
                 | object of type 'Int'.  Did you forget a '.new'?␤  in block <unit> at <tmp> line 1␤␤»

这只是意味着你不能将一个字符串与Dateish混合在一起吗?我已经做了几个小时没有问题的事情。

1 个答案:

答案 0 :(得分:6)

要回答你的问题,我们应该看一下这个角色:

my role Dateish {
    has Int $.year;
    has Int $.month;     # should be int
    has Int $.day;       # should be int
    has Int $.daycount;
    has     &.formatter;

    ...
    multi method Str(Dateish:D:) {
        &!formatter ?? &!formatter(self) !! self!formatter
    }
    multi method gist(Dateish:D:) { self.Str }
    ...
}

因此,角色Dateish有几个属性,方法使用这些属性来计算它们的返回值。

执行$some-string but Dateish时,您没有做任何事情来初始化属性,因此使用它们的方法调用(可能是间接的)以有趣的方式失败。

如何从Dateish获得DateTime对象呢?好吧,DateTime已经是一个,或者你可以强迫Date如果这是你想要的:

my $date = ".".IO.changed.DateTime.Date; say $date

您也可以尝试通过提供所有属性来实例化Dateish,但我认为没有任何优势,只能按预期使用Date