Perl6 :: Slurp von DATA

Question

könnte jemand bitte ein Referenzbeispiel von Perl6 :: Slurp mit dem DATA-Dateihandle posten?

use strict; 
use Perl6::Slurp; 

my $contents = slurp(*DATA); 

__END__ 
line 1 
line 2 

schlägt fehl.

Answer 1

Ein Verweis auf einen Typglob ist ein geeignetes Argument zu Perl6::Slurp::slurp, wie die perldoc demonstriert.

use Perl6::Slurp; 

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

__DATA__ 
hello 
world