Perl6 :: Slurp of DATA

Question

誰かがPerl6 :: Slurpの参考例をDATAファイルハンドルで投稿できますか？

use strict; 
use Perl6::Slurp; 

my $contents = slurp(*DATA); 

__END__ 
line 1 
line 2 

が失敗します。

Answer 1

タイプグロブへの参照は、Perl6::Slurp::slurpの適切な引数です（perldocが示すとおり）。

use Perl6::Slurp; 

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

__DATA__ 
hello 
world