Select Code to Download

$ perl -MO=Deparse -e '$dbh->do("alter session set current_schema = th
+e current schema”);'
Can't find string terminator '"' anywhere before EOF at -e line 1.

$ perl -MO=Deparse -e 'print “third script executed”;'
Unrecognized character \xE2; marked by <-- HERE after print <-- HERE n
+ear column 7 at -e line 1.

#!/usr/bin/env perl

...
my $sdm = SpaceCowboy::Database::Module::->new($database_credentials);

$sdm->$_() for qw{primary first second third};

package SpaceCowboy::Database::Module;

...
# ditto for second() and third()

1;

$self->dbh()->do($_) for @statements;