peschwa

Test Summary Report
-------------------
t/spec/S05-modifier/counted.rakudo.moar                     (Wstat: 0 Tests: 118 Failed: 0)
  TODO passed:   28
# ^^^ ...yay, i guess?
# details:
{
    ok($data ~~ m:nth(2,3):global/(fo+)/, 'nth(list) is ok');
    is(@(), <foo fooo>, 'nth(list) matched correctly');
}

peschwa

$ perl6
> use IO::Socket::SSL
> my $sock = IO::Socket::SSL.new(:host<google.com>, :port(443))
IO::Socket::SSL.new(encoding => "utf8", host => "google.com", port => 443, localhost => Str, localport => Int, certfile => Str, listen => Bool, input-line-separator => "\n", ins => 0, fd => 10, ssl => OpenSSL.new(ctx => SSL_CTX.new(method => SSL_METHOD.new(version => 769)), ssl => SSL.new(version => 769, type => 4096, method => SSL_METHOD.new(version => 769), rbio => BIO.new(method => BIO_METHOD.new(type => 1285, name => "socket"), cb_arg => Str, init => 0, shutdown => 1, flags => 0, retry_reason => 0, num => 0, ptr => OpaquePointer.new(10), next_bio => BIO, prev_bio => BIO, references => 0, num_read => 19181323943937, num_write => 353), wbio => BIO.new(method => BIO_METHOD.new(type => 1285, name => "socket"), cb_arg => Str, init => 0, shutdown => 1, flags => 0, retry_reason => 0, num => 0, ptr => OpaquePointer.new(10), next_bio => BIO, prev_bio => BIO, references => 0, num_read => 19181323943937, num_write => 353), 

peschwa

class Foo {
    has $.args is rw;

    multi method init(Foo:D $self: @args) {
        $.args = @args;
    }

    multi method init(Foo:U $self is rw: @args) {
        $self .= new;
        $self.args = @args;

peschwa

use v6;

my $match;
my $call = { say "in call: " ~ $0 };

sub set-match {
    "abc" ~~ /(.)/;
    $match = $/;
}

peschwa

$ perl -MO=Deparse -e'print "here\n";' -Mstrict -e'print "now here\n";' -MLWP -e'print "finally\n"'
use LWP;
use strict;
print "here\n";
print "now here\n";
print "finally\n";
-e syntax OK

peschwa

diff --git a/src/HLL/CommandLine.nqp b/src/HLL/CommandLine.nqp
index 3e579fe..f936952 100644
--- a/src/HLL/CommandLine.nqp
+++ b/src/HLL/CommandLine.nqp
@@ -42,18 +42,33 @@ and C<arguments>.
 The C<.new> method and constructor expects an array with option specifications.
 Such a specification is the name of an option, optionally followed by the
 C<=> equals sign and a single character describing the kind of value it expects.
-Missing value specification or C<b> stand for C<bool>, ie the option does not
-expect a value. C<s> stands for a string value.

peschwa

parsing		--setting=NULL --ll-exception --optimize=3 --target=mbc --stagestats --output=CORE.setting.moarvm src/gen/m-CORE.setting
opts: 
setting: NULL
ll-exception: 1
optimize: 3
target: mbc
stagestats: 1
output: CORE.setting.moarvm
delim-opts: 
args: 

peschwa

$ git diff nom -- src/Perl6/World.nqp
diff --git a/src/Perl6/World.nqp b/src/Perl6/World.nqp
index 327fc4e..6d8ab69 100644
--- a/src/Perl6/World.nqp
+++ b/src/Perl6/World.nqp
@@ -1654,6 +1654,20 @@ class Perl6::World is HLL::World {
             }
             return join(' ', @pieces);
         }
+        elsif nqp::istype($ast[0], QAST::Want) && $ast[0].has_compile_time_value {

peschwa

psch@debvm:/tmp$ ls -la blargl 
prw-r--r-- 1 psch psch 0 Dec 23 23:00 blargl
psch@debvm:/tmp$ file blargl 
blargl: fifo (named pipe)
psch@debvm:/tmp$ echo "12345" > blargl & perl6 -v && perl6 -e'say "--"; "blargl".IO.open.read(5).decode("ascii").say; say "--"' 
[1] 2754
This is perl6 version 2014.12-11-g08c2b0f built on MoarVM version 2014.12
--
12345
--

peschwa

## file FooAttrTest.pl
use v6;

use Foo:from<Java>;

Foo.HOW.add_method(Foo, "baz", method ($self:) {
    Proxy.new:
        FETCH => method () { $self."field/get_baz/I"() },
        STORE => method ($new_val)  { $self."field/set_baz/I"($new_val) };
});