After constants removal, before main DI

gistfile1.pl

package MyClass;

sub new {
    my ( $class, $dsn, $user, $password ) = @_;
    my $self = bless {}, $class;
    my $self->{dbh} = DBI->connect($dsn, $user, $password);