Implement module as a synonym for package

Decl.pm

@@ -332,6 +332,15 @@ use CgOp;
     no Moose;
 }
 
+{
+    package Decl::Module;
+    use Moose;
+    extends 'Decl::Package';
+
+    __PACKAGE__->meta->make_immutable;
+    no Moose;
+}
+
 {
     package Decl::Class;
     use Moose;

Op.pm

@@ -420,9 +420,10 @@ use CgOp;
     has stub => (is => 'ro', isa => 'Bool', default => 0);
     has body => (is => 'ro', isa => 'Body');
 
+    sub decl_class { 'Decl::Package' }
     sub local_decls {
         my ($self) = @_;
-        Decl::Package->new(stub => $self->stub, var => $self->var . "::",
+        $self->decl_class->new(stub => $self->stub, var => $self->var . "::",
             ($self->stub ? () : (body => $self->body,
                     bodyvar => $self->bodyvar)));
     }
@@ -443,6 +444,17 @@ use CgOp;
     no Moose;
 }
 
+{
+    package Op::ModuleDef;
+    use Moose;
+    extends 'Op::PackageDef';
+
+    sub decl_class { 'Decl::Module' }
+
+    __PACKAGE__->meta->make_immutable;
+    no Moose;
+}
+
 {
     package Op::ClassDef;
     use Moose;

test.pl

@@ -10,7 +10,7 @@ ($num)
     say ("1.." ~ $num);
 }
 
-plan 95;
+plan 96;
 
 ok 1, "one is true";
 ok 2, "two is also true";
@@ -306,4 +306,6 @@ ($num)
 {
     my package Foo { our $x = 42; }
     ok $Foo::x == 42, "can access our vars";
+    my module Bar { our $x = 42; }
+    ok $Bar::x == 42, "module accepted too";
 }