Implement the constant declator, with and without sigils (they aren't…

… actually constant yet though)

Niecza/Actions.pm

@@ -753,6 +753,24 @@ sub variable_declarator { my ($cl, $M) = @_;
     }
 }
 
+sub type_declarator {}
+sub type_declarator__S_constant { my ($cl, $M) = @_;
+    my $scope = $::SCOPE // 'my';
+    if (!$M->{identifier} && !$M->{variable}) {
+        $M->sorry("Anonymous constants NYI"); #wtf?
+        return;
+    }
+    my $slot  = ($M->{identifier} // $M->{variable})->Str;
+
+    # This is a cheat.  Constants should be, well, constant, and we should be
+    # using the phaser rewrite mechanism to get the initializer here.  XXX
+    # terms need to use a context hash.
+    push @{ $::CURLEX->{'!decls'} //= [] },
+        Decl::SimpleVar->new(slot => $slot);
+
+    $M->{_ast} = Op::Lexical->new(name => $slot);
+}
+
 sub package_declarator {}
 sub package_declarator__S_class { my ($cl, $M) = @_;
     $M->{_ast} = $M->{package_def}{_ast};

test.pl

@@ -10,7 +10,7 @@ ($num)
     say ("1.." ~ $num);
 }
 
-plan 89;
+plan 91;
 
 ok 1, "one is true";
 ok 2, "two is also true";
@@ -279,3 +279,10 @@ ($num)
     ok "Hi" ~~ Str, "types match identity";
     ok (?0) ~~ (?1), "bools are a constant";
 }
+
+{
+    constant foo = 42;
+    constant $bar = 51;
+    ok foo == 42, "constants without sigils work";
+    ok $bar == 51, "constants with sigils work";
+}