Implement Num literals

CodeGen.pm

@@ -390,6 +390,11 @@ use 5.010;
         $self->_push('System.Int32', $val);
     }
 
+    sub clr_double {
+        my ($self, $val) = @_;
+        $self->_push('System.Double', "((Double)$val)");
+    }
+
     sub clr_field_get {
         my ($self, $f) = @_;
         my $ty = $typedata{$self->stacktype->[-1]}{$f};

Niecza/Actions.pm

@@ -52,7 +52,8 @@ sub number { my ($cl, $M) = @_;
 # Value :: Op
 sub value { }
 sub value__S_number { my ($cl, $M) = @_;
-    $M->sorry("Num is NYI");
+    # TODO: Implement the rest of the numeric hierarchy once MMD exists
+    $M->{_ast} = Op::Num->new(value => $M->{number}{_ast});
 }
 
 sub value__S_quote { my ($cl, $M) = @_;

Op.pm

@@ -125,6 +125,23 @@ use 5.010;
     no Moose;
 }
 
+{
+    package Op::Num;
+    use Moose;
+    extends 'Op';
+
+    has value => (isa => 'Num', is => 'ro', required => 1);
+
+    sub item_cg {
+        my ($self, $cg, $body) = @_;
+        $cg->clr_double($self->value);
+        $cg->box('Num');
+    }
+
+    __PACKAGE__->meta->make_immutable;
+    no Moose;
+}
+
 {
     package Op::Lexical;
     use Moose;