use strict; use warnings;
use lib (-e 't' ? 't' : 'test'), 'inc';

use Test::More tests => 1;
use Spiffy '-filter_save';
use Filter4;

my $result = $Spiffy::filter_result;
my $expected = do { local $/; <DATA> };
$result =~ s/\r//g;
$expected =~ s/\r//g;
is($result, $expected);

__DATA__
use strict;use warnings;my($bar,$bam);# comment

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

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

sub baz {
    my $z = 1;
}

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