Unify private accessors and private methods

$!foo is short for self!foo.  This makes $!Foo::bar and $other!private
work, and will eventually make $!method(20) work with no ambiguity.

src/Metamodel.pm

@@ -794,20 +794,22 @@ sub Op::Attribute::begin {
         if $opensubs[-1]->augmenting;
     $ns = $unit->deref($ns);
     $ns->add_attribute($self->name);
+    my $nb = Metamodel::StaticSub->new(
+        unit       => $unit,
+        outer      => $opensubs[-1],
+        name       => $self->name,
+        cur_pkg    => $opensubs[-1]->cur_pkg,
+        returnable => 0,
+        class      => 'Sub',
+        run_once   => 0,
+        code       => Op::GetSlot->new(name => $self->name,
+            object => Op::CgOp->new(optree => [ pos => 0 ])));
+    $opensubs[-1]->create_static_pad; # for protosub instance
+    $nb->strong_used(1);
+    $opensubs[-1]->add_my_sub($self->name . '!a', $nb);
+    my $r = $unit->make_ref($nb);
+    $ns->add_method('!', $self->name, $r);
     if ($self->accessor) {
-        my $nb = Metamodel::StaticSub->new(
-            unit       => $unit,
-            outer      => $opensubs[-1],
-            name       => $self->name,
-            cur_pkg    => $opensubs[-1]->cur_pkg,
-            returnable => 0,
-            class      => 'Sub',
-            run_once   => 0,
-            code       => Op::GetSlot->new(name => $self->name,
-                object => Op::CgOp->new(optree => [ pos => 0 ])));
-        $opensubs[-1]->create_static_pad; # for protosub instance
-        $nb->strong_used(1);
-        $opensubs[-1]->add_my_sub($self->name . '!a', $nb);
         $ns->add_method('', $self->name, $unit->make_ref($nb));
     }
 }

src/Niecza/Actions.pm

@@ -1435,13 +1435,9 @@ sub do_variable_reference { my ($cl, $M, $v) = @_;
 
     given ($v->{twigil}) {
         when ('!') {
-            if ($v->{rest}) {
-                $M->sorry('$!Foo::bar syntax NYI');
-                return;
-            }
-
-            return Op::GetSlot->new(node($M), name => $v->{name},
-                object => Op::Lexical->new(name => 'self'));
+            return Op::CallMethod->new(node($M), name => $v->{name},
+                receiver => Op::Lexical->new(name => 'self'),
+                private => 1, ppath => $v->{rest});
         }
         when ('.') {
             if ($v->{rest}) {