MARTIMM

#!/usr/bin/env perl6

use v6;
use JSON::Fast;
use CPAN::Uploader::Tiny;

#-------------------------------------------------------------------------------
sub MAIN ( *@p6-dirs is copy ) {

  @p6-dirs //= ();

MARTIMM

#!/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

MARTIMM

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!

MARTIMM

os: Visual Studio 2015

platform: x64

branches:
  # whitelist
  only:
    - master

install:

MARTIMM

#!/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 {