The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use lib 't/lib';
use Test::More;
use TidierTests;

run_test( <<'RAW', <<'TIDIED', 'RT#102815 - ignores -sbl', '', -sbl );
sub name1 () {
}
sub name2()
{
}
RAW
sub name1 ()
{
}

sub name2 ()
{
}
TIDIED

run_test( <<'RAW', <<'TIDIED', 'what if indented', '', -sbl );
sub name1 () {
sub name2()
{
}
}
RAW
sub name1 ()
{

    sub name2 ()
    {
    }
}
TIDIED

done_testing;