prev <<
9 PostgreSQL features I wish I learned earlier
>> next
1: The Connection Service File
sub dbservice { my $base = 'kb'; return $base . '_test' if $ENV{HARNESS_ACTIVE}; my
$bin
=
$0
; }
In Perl,
$0
contains the name of the currently running program