sub enter {
my ($self, $cv) = @_;
+ return 'list' if class($cv) ne 'CV';
my $op = $cv->ROOT;
my $tag = tag($op);
return $self->expect_list($op);
}
-# Stolen from Sub::Deparse
+# Stolen from B::Deparse
sub padval { $_[0]->{cv}->[0]->PADLIST->ARRAYelt(1)->ARRAYelt($_[1]) }