### ----------------------------------------------------
### -- Text::CSV
### -- Licenses: Artistic-2.0
### -- Authors: H.Merijn Brand (Tux)
### -- File: NLPW-2015/018-debug.txt
### ----------------------------------------------------
$ perl6 -e'.gist.say for 1, "test.pl".IO, 1/4, \4'
1
"/srv/www/htdocs/Talks/CSV6/test.pl".IO
0.25
\(4)

$ perl6 -e'.perl.say for 1, "test.pl".IO, 1/4, \4'
1
q|test.pl|.IO(:SPEC(IO::Spec::Unix),:CWD</work/www/Talks/CSV6>)
0.25
Capture.new(list => (4,))

$ perl6 -e'(1/4).nude.say'
1 4


