package Filter4;
use Spiffy -Base;
# comment

sub foo {
    my $x = $self->$bar;
}

sub one { }
sub uno {}
my sub bar {
    if (1) {
        my $y = 1;
    }
}

sub baz() {
    my $z = 1;
}

my sub bam {
    $self->$bar(42);
}