io - 试图重铸 $*ARGFILES

Question

为了fix this error我需要将 $*ARGFILES 重新转换为 IO::CatHandle，因为它使用了该类的一些属性。我正在尝试这个:

use IO::CatHandle::AutoLines; # -*- mode:perl6 -*-
use Test;

if $*ARGFILES === $*IN {
    $*ARGFILES = IO::CatHandle.new( $*IN );
}
eval-lives-ok "$*ARGFILES does IO::CatHandle::AutoLines", "Can recast \$*ARGFILES";

但这会产生错误:

# Error: Unsupported use of <STDIN>; in Perl 6 please use $*IN.lines (or add whitespace to suppress warning)

我认为这与我混合的角色无关，但我添加它是为了上下文。知道还有什么可以做的吗？

Answer 1

您看到的错误非常 LTA，但是使用双引号的副作用，当您应该使用单引号时:

eval-lives-ok '$*ARGFILES does IO::CatHandle::AutoLines',
  "Can recast \$*ARGFILES";
# ok 1 - Can recast $*ARGFILES

所以你试图字符串化 $*ARGFILES , 产生字符串:

<STDIN> does IO::CatHandle::AutoLines

而这不是 EVAL很好 :-)