Select Code to Download

 $$database_handle = DBI->connect(map {exists $arguments{$_} ? $argume
+nts{$_}  : $caller->"database_${_}"()} qw(data_source_name username p
+assword taint)) or die "Could not connect to the database: $DBI::errs
+tr";

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

  $$database_handle = DBI->connect(map {exists $arguments{$_} ? $argum
+ents{$_}  : $caller->database_$_()} qw(data_source_name  username pas
+sword taint)) or die  "Could not connect to the database: $DBI::errst
+r";

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_$_"

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