Perl6 ::数据的Slurp

Question

有人可以使用DATA文件句柄发布Perl6 :: Slurp的参考示例吗？

use strict;
use Perl6::Slurp;

my $contents = slurp(*DATA);

__END__
line 1
line 2

失败。

Answer 1

对Perl6::Slurp::slurp的引用是对typeglob的适当参数，正如perldoc所示。

use Perl6::Slurp;

$hw = slurp \*DATA;
print $hw;

__DATA__
hello
world