C:\Documents and Settings\Owner\Desktop>perl n13.pl
now mysub
B::Concise::compile(CODE(0x82a6dc))
# 9:     my $val;
1  <;> nextstate(main -8 n13.pl:9) v:*,&,$
2  <0> padsv[$val:-8,-7] vM/LVINTRO
# 10:     $val = rand(2) > 1 ? "high" : "low";
3  <;> nextstate(main -7 n13.pl:10) v:*,&,$
4  <$> const[IV 2] s
5  <1> rand[t2] sK/1
6  <$> const[IV 1] s
7  <2> gt sK/2
8  <|> cond_expr(other->9) sK/1
9      <$> const[PV "high"] s
           goto a
h  <$> const[PV "low"] s
a  <0> padsv[$val:-8,-7] sRM*
b  <2> sassign vKS/2
# 11:     return $val;
c  <;> nextstate(main -7 n13.pl:11) v:*,&,{,$
d  <0> pushmark s
e  <0> padsv[$val:-8,-7]
f  <@> return K
g  <1> leavesub[1 ref] K/REFC,1




now mysub2
B::Concise::compile(CODE(0x9a1c44))
# 14:     my $val;
i  <;> nextstate(main -6 n13.pl:14) v:*,&,$
j  <0> padsv[$val:-6,-2] vM/LVINTRO
# 15:     if(rand(2) > 1){
k  <;> nextstate(main -2 n13.pl:15) v:*,&,$
l  <$> const[IV 2] s
m  <1> rand[t2] sK/1
n  <$> const[IV 1] s
o  <2> gt sK/2
p  <|> cond_expr(other->q) vK/1
q      <$> const[PV "high"] s
r      <0> padsv[$val:-6,-2] sRM*
s      <2> sassign vKS/2
           goto t
y  <0> enter v
# 19:         $val = "low";
z  <;> nextstate(main -4 n13.pl:19) v:*,&,$
10 <$> const[PV "low"] s
11 <0> padsv[$val:-6,-2] sRM*
12 <2> sassign vKS/2
13 <@> leave vKP
# 21:     return $val;
t  <;> nextstate(main -2 n13.pl:21) v:*,&,{,$
u  <0> pushmark s
v  <0> padsv[$val:-6,-2]
w  <@> return K
x  <1> leavesub[1 ref] K/REFC,1

C:\Documents and Settings\Owner\Desktop>