$ perl -MO=Concise,get_name1,get_name2
sub get_name1
{
  my $name = dblookup() || undef;
  $name;
}

sub get_name2 { dblookup() || undef }

main::get_name1:
b  <1> leavesub[1 ref] K/REFC,1 ->(end)
-     <@> lineseq KP ->b
1        <;> nextstate(main 1 -:3) v ->2
8        <2> sassign vKS/2 ->9
-           <1> null sK/1 ->7
5              <|> or(other->6) sK/1 ->7
4                 <1> entersub[t2] sKS/TARG,1 ->5
-                    <1> ex-list sK ->4
2                       <0> pushmark s ->3
-                       <1> ex-rv2cv sK/1 ->-
3                          <$> gv(*dblookup) s/EARLYCV ->4
6                 <0> undef s ->7
7           <0> padsv[$name:1,2] sRM*/LVINTRO ->8
9        <;> nextstate(main 2 -:4) v ->a
a        <0> padsv[$name:1,2] ->b
main::get_name2:
i  <1> leavesub[1 ref] K/REFC,1 ->(end)
-     <@> lineseq KP ->i
c        <;> nextstate(main 3 -:7) v ->d
-        <1> null K/1 ->-
g           <|> or(other->h) K/1 ->i
f              <1> entersub[t1] sKS/TARG,1 ->g
-                 <1> ex-list sK ->f
d                    <0> pushmark s ->e
-                    <1> ex-rv2cv sK/1 ->-
e                       <$> gv(*dblookup) s/EARLYCV ->f
h              <0> undef s ->i
- syntax OK