view release on metacpan or  search on metacpan

examples/use-syntax.pl  view on Meta::CPAN

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

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

print Dumper $foo;