[mm] Implement START

sorear · Sep 19, 2010 · 78739fd · 78739fd
1 parent 26f8301
commit 78739fd
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/Metamodel.pm b/src/Metamodel.pm
@@ -279,7 +279,8 @@ our $global;
         # outermost sub isn't cloned so a fallback to my is safe
         my $up = $self->outer // $self;
         $up->lexicals->{$back} = Metamodel::Lexical::Simple->new(@ops);
-        $self->lexicals->{$slot} = Metamodel::Lexical::Alias->new($back);
+        $self->lexicals->{$slot} = Metamodel::Lexical::Alias->new($back)
+            if defined($slot);
     }
 
     sub add_my_stash { my ($self, $slot, $stash) = @_;
@@ -414,6 +415,12 @@ sub Op::SubDef::begin {
     delete $self->{$_} for (qw( body method_too proto_too exports once ));
 }
 
+sub Op::Start::begin {
+    my $self = shift;
+    $opensubs[-1]->add_state_name(undef, $self->condvar);
+    $self->Op::begin;
+}
+
 sub Op::PackageDef::begin {
     my $self   = shift;
     my $pclass = ref($self);