desugar.pl

    eval q[
        $ret = mdo {
           mbind $x = Just 1 + 2;  
           munit $x;
           };];
    if ($@) {
        fail "Error $@";
    } else {
        is_deeply( $ret, $expected, "Sanity check for next (partial line) test" );
    }

=begin This should desugar to

mdo {
    mbind Just 1+2, sub {
        my ($x) = shift;
        munit $x;
        }
    };

=cut