The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use syntax qw/maybe dispatcher/;
use Data::Dumper;

my $foo = dispatcher {
	match(1);
};

print Dumper $foo;