Perl6 :: Slurp of DATA

Question

Может кто-нибудь, пожалуйста, разместите ссылочный пример Perl6 :: Slurp с дескриптором файла DATA?

use strict; 
use Perl6::Slurp; 

my $contents = slurp(*DATA); 

__END__ 
line 1 
line 2 

не работает.

Answer 1

Ссылка на типglob является подходящим аргументом для Perl6::Slurp::slurp, как демонстрирует perldoc.

use Perl6::Slurp; 

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

__DATA__ 
hello 
world