This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl6 | |
use v6.c; | |
sub MAIN ( Str:D $filename where (.IO ~~ :r and .IO !~~ :d) ) { | |
my Proc $p; | |
my Bool $success = True; | |
while $success { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use v6; | |
use Test; | |
#------------------------------------------------------------------------------ | |
d-ok( {die 'oh oh 0';}, 'oh oh 0'); | |
d-ok( {die 'oh oh 1';}, 'oh oh 1', :name<X::AdHoc>); | |
d-ok( {die 'oh oh 2';}, 'oh oh 2', :message<oh oh 2>); | |
d-ok( {die 'oh oh 3';}, 'oh oh 3', :name<X::AdHoc>, :message<oh oh 3> ); | |
d-ok( {die 'oh oh 4';}, 'oh oh 4', :name<X::AdHoc>, :message(/ '4' $/) ); | |
# Dies without knowing that the method Lisp does not exist! |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
os: Visual Studio 2015 | |
platform: x64 | |
branches: | |
# whitelist | |
only: | |
- master | |
install: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl6 | |
#`{{ | |
Perl6 datablock are not yet implemented so $=data will generate an error. | |
After some testing I also found that the data between e.g. '=begin data' and | |
'=end data' are scooped up into one single string without any newline (\n). | |
This, I find, is an important character needed to separate lines. so | |
=begin data | |
a 1 | |
b 2 | |
=end data |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl6 | |
use v6; | |
use JSON::Fast; | |
use CPAN::Uploader::Tiny; | |
#------------------------------------------------------------------------------- | |
sub MAIN ( *@p6-dirs is copy ) { | |
@p6-dirs //= (); |