sub get_name
{
  my $name = dblookup() || undef;
  $name;
}

##</code><code>##

sub get_name { dblookup() || undef }

##</code><code>##

$ 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

##</code><code>##

$ 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

##</code><code>##

print $_ ? "\n My name is $_" : "\n I have no name" for dblookup() || undef;