set_hashed_passwords.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Slists::Schema;
   7
   8 my $schema = Slists::Schema->connect('dbi:SQLite:slists.db');
   9
  10 my @users = $schema->resultset('User')->all;
  11
  12 foreach my $user (@users) {
  13     $user->password('mypass');
  14     $user->update;
  15 }