1 sub foo
2 {
4a    my $self = shift;
4b    my () = @_;
3 }