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;

TODO: {
    # Works with Test::More prior to 1.301001_?
    local $TidierTests::TODO = 'Annoymous functions are not supported yet';
    # Works with Test::More after 1.301001_021
    local $TODO = 'Annoymous functions are not supported yet';
    TidierTests::do_tests( \*DATA );
}

__DATA__
==== Annoymous func (GH#4) ===============================================
my $foo = func ($x,:$y) { $self->xyzzy($x,$y) }; | my $foo = func ($x,:$y) { $self->xyzzy($x,$y) };

==== Annoymous func (GH#4) ===============================================
my $foo = { bar => 1, baz => func ($x,:$y) { $self->xyzzy($x,$y) } }; | my $foo = {
                                                                      |     bar => 1,
                                                                      |     baz => func ($x,:$y) { $self->xyzzy( $x, $y ) }
                                                                      | };
                                                                      |