$ perl -MO=Concise,get_name           
sub get_name ()  { dblookup() || undef }    

main::get_name:
7  <1> leavesub[1 ref] K/REFC,1 ->(end)
-     <@> lineseq KP ->7
1        <;> nextstate(main 1 -:1) v ->2
-        <1> null K/1 ->-
5           <|> or(other->6) K/1 ->7
4              <1> entersub[t1] 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
- syntax OK