Help for this page

Select Code to Download

Select or download this

  sub edef {
    my ($symbol) = @_ ;
...

    return defined(${$symbol}) + 2 ;
  } ;