perl - Perl6::データの丸呑み

Question

誰かが Perl6::Slurp と DATA ファイルハンドルの参考例を投稿してくれませんか?

use strict;
use Perl6::Slurp;

my $contents = slurp(*DATA);

__END__
line 1
line 2

失敗します。

Answer 1

perldocPerl6::Slurp::slurpが示すように、型グロブへの参照は への適切な引数です。

use Perl6::Slurp;

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

__DATA__
hello
world