Perl6::Slurp数据

Question

有人能用数据文件句柄发布一个Perl6::Slurp的参考示例吗？

use strict;
use Perl6::Slurp;

my $contents = slurp(*DATA);

__END__
line 1
line 2

失败。

Answer 1

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

use Perl6::Slurp;

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

__DATA__
hello
world