How to convert a symbolic reference to a hard reference

Select or download this

*Config::DBI::error_handler = eval "&$symbolic_ref";

DBI->connect($DSN, $User, $Pass, 
      { HandleError => Config::DBI::error_handler } );

Select or download this

package M;

...

M::x();

Select or download this


 ~/hacks/config-dbi/scripts $ perl symref.pl
Undefined subroutine &main::1 called at symref.pl line 19.
sub __PACKAGE__y        ~/hacks/config-dbi/scripts $

Select Code to Download