#!/usr/bin/perl
use strict;
use warnings;
use Carp;
use B::Concise;
sub mk_code2x{
    my $style = shift;
    sub (&){
        my $coderef = shift;
        carp "ref($coderef) ne q(CODE)" if ref $coderef ne 'CODE';
        my $walker = B::Concise::compile($style, $coderef);
        my $buf;
        B::Concise::walk_output(\$buf);
        $walker->();
        $buf;
    }
}
*code2terse   = mk_code2x('-terse');   sub code2terse(&);
*code2concise = mk_code2x('-concise'); sub code2concise(&);
print code2terse { my $a = 1 };
print code2terse { { my $a = 1 } };
print code2concise { my $a = 1 };
print code2concise { { my $a = 1 } };