hydra/tests/Setup.pm
2011-03-16 13:18:12 +00:00

15 lines
250 B
Perl

package Setup;
use strict;
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(hydra_setup);
sub hydra_setup {
my ($db) = @_;
$db->resultset('Users')->create({ username => "root", emailaddress => 'root@email.com', password => '' });
}
1;