$$database_handle = DBI->connect(map {exists $arguments{$_} ? $arguments{$_}  : $caller->"database_${_}"()} qw(data_source_name username password taint)) or die "Could not connect to the database: $DBI::errstr";

##</code><code>##

String found where operator expected at Storage.pm line 46, near "->"database_${_}"" (Missing operator before "database_${_}"?)

##</code><code>##

  $$database_handle = DBI->connect(map {exists $arguments{$_} ? $arguments{$_}  : $caller->database_$_()} qw(data_source_name  username password taint)) or die  "Could not connect to the database: $DBI::errstr";

##</code><code>##

Scalar found where operator expected at Storage.pm line 47, at end of line  (Missing operator before ?)
syntax error at Storage.pm line 47, near "->database_$_"

##</code><code>##

  $$database_handle = DBI->connect(map {my $s="database_$_";exists $arguments{$
_} ? $arguments{$_} : $caller->$s()} qw(data_source_name username password taint)) or die "Could not connect to the database: $DBI::errstr";