Select Code to Download

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

sub get_name { dblookup() || undef }

$ perl -MO=Concise,get_name1,get_name2
sub get_name1
...
e                       <$> gv(*dblookup) s/EARLYCV ->f
h              <0> undef s ->i
- syntax OK

$ perl -MO=Concise,get_name           
sub get_name ()  { dblookup() || undef }    
...
3                       <$> gv(*dblookup) s/EARLYCV ->4
6              <0> undef s ->7
- syntax OK

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