The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
package TestDB::Users;
use base 'DBIx::Class';

__PACKAGE__->load_components(qw/Core/);
__PACKAGE__->table('users');
#__PACKAGE__->add_columns( All => qw[user passphrase] );
__PACKAGE__->add_columns(qw[ user passphrase ]);

sub setuptable {
    my ($self, $dbh) = @_;
    
    local $/ = "\n\n";
    $dbh->do($_) for <DATA>;
}

1;

__DATA__
CREATE TABLE users (
  user varchar(16) PRIMARY KEY,
  passphrase varchar(25)
);

INSERT INTO users VALUES ('user1','123');

INSERT INTO users VALUES ('usermd5','e16b2ab8d12314bf4efbd6203906ea6c');

INSERT INTO users VALUES ('usercrypt','111ukgxvMW4Lw');