Implement here documents

Niecza/Actions.pm

@@ -178,7 +178,7 @@ sub quote__S_q { my ($cl, $M) = @_;
 }
 
 sub quote__S_Q { my ($cl, $M) = @_;
-    $M->{_ast} = $M->{quibble}{nibble}{_ast};
+    $M->{_ast} = $M->{quibble}{_ast};
 }
 
 sub quote__S_Slash_Slash { my ($cl, $M) = @_;
@@ -981,7 +981,13 @@ sub cgexp__S_op { my ($cl, $M) = @_;
 }
 
 sub apostrophe {}
-sub quibble {}
+sub quibble { my ($cl, $M) = @_;
+    if ($M->{babble}{B}[0]{_herelang}) { #XXX
+        $M->{_ast} = Op::HereStub->new(node => $M);
+    } else {
+        $M->{_ast} = $M->{nibble}{_ast};
+    }
+}
 sub tribble {}
 sub babble {}
 sub quotepair {}

Op.pm

@@ -228,6 +228,28 @@ use CgOp;
     no Moose;
 }
 
+{
+    package Op::HereStub;
+    use Moose;
+    extends 'Op';
+
+    has node => (is => 'ro', required => 1);
+
+    sub zyg {
+        my ($self) = @_;
+        return ($self->node // {})->{doc}{_ast} //
+            die("Here document used before body defined");
+    }
+
+    sub code {
+        my ($self, $body) = @_;
+        $self->zyg->cgop($body);
+    }
+
+    __PACKAGE__->meta->make_immutable;
+    no Moose;
+}
+
 {
     package Op::Yada;
     use Moose;
@@ -236,7 +258,7 @@ use CgOp;
     has kind => (isa => 'Str', is => 'ro', required => 1);
 
     sub code {
-        my ($self, $cg, $body) = @_;
+        my ($self, $body) = @_;
 
         CgOp::prog(
             CgOp::subcall(