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