use strict;
use warnings;
use Data::Dumper;

use B::Concise;


sub mysub {
    my $val;
    $val = rand(2) > 1 ? "high" : "low";
    return $val;
}
sub mysub2 {
    my $val;
    if(rand(2) > 1){
        $val = "high";
    }
    else{
        $val = "low";
    }
    return $val;
}
my $walker = B::Concise::compile('-src','-exec',*mysub{CODE});
print "now mysub\n";
$walker->();
$walker = B::Concise::compile('-src','-exec',*mysub2{CODE});
print "\n\n\n\nnow mysub2\n";
$walker->();
exit;