103 lines
2.3 KiB
Perl
103 lines
2.3 KiB
Perl
package Pear::LocalLoop::Command::dev_data;
|
|
use Mojo::Base 'Mojolicious::Command';
|
|
|
|
use Mojo::Util 'getopt';
|
|
|
|
has description => 'Input Dev Data';
|
|
|
|
has usage => sub { shift->extract_usage };
|
|
|
|
sub run {
|
|
my ( $self, @args ) = @_;
|
|
|
|
getopt \@args,
|
|
'f|force' => \my $force;
|
|
|
|
unless ( defined $force ) {
|
|
say "Will not do anything without force option";
|
|
return;
|
|
}
|
|
|
|
if ( ( defined( $ENV{MOJO_MODE} ) && $ENV{MOJO_MODE} eq 'production' ) || $self->app->mode eq 'production' ) {
|
|
say "Will not run dev data fixtures in production!";
|
|
return;
|
|
}
|
|
|
|
my $schema = $self->app->schema;
|
|
|
|
$schema->resultset('AgeRange')->populate([
|
|
[ qw/ string / ],
|
|
[ '20-35' ],
|
|
[ '35-50' ],
|
|
[ '50+' ],
|
|
]);
|
|
|
|
$schema->resultset('Leaderboard')->populate([
|
|
[ qw/ name type / ],
|
|
[ 'Daily Total', 'daily_total' ],
|
|
[ 'Daily Count', 'daily_count' ],
|
|
[ 'Weekly Total', 'weekly_total' ],
|
|
[ 'Weekly Count', 'weekly_count' ],
|
|
[ 'Monthly Total', 'monthly_total' ],
|
|
[ 'Monthly Count', 'monthly_count' ],
|
|
[ 'All Time Total', 'all_time_total' ],
|
|
[ 'All Time Count', 'all_time_count' ],
|
|
]);
|
|
|
|
$schema->resultset('User')->create({
|
|
email => 'test@example.com',
|
|
password => 'abc123',
|
|
customer => {
|
|
full_name => 'Test User',
|
|
display_name => 'Test User',
|
|
age_range_id => 1,
|
|
postcode => 'LA1 1AA',
|
|
},
|
|
administrator => {},
|
|
});
|
|
|
|
$schema->resultset('User')->create({
|
|
email => 'test2@example.com',
|
|
password => 'abc123',
|
|
customer => {
|
|
full_name => 'Test User 2',
|
|
display_name => 'Test User 2',
|
|
age_range_id => 1,
|
|
postcode => 'LA1 1AA',
|
|
},
|
|
});
|
|
|
|
$schema->resultset('User')->create({
|
|
email => 'test3@example.com',
|
|
password => 'abc123',
|
|
customer => {
|
|
full_name => 'Test User 3',
|
|
display_name => 'Test User 3',
|
|
age_range_id => 1,
|
|
postcode => 'LA1 1AA',
|
|
},
|
|
});
|
|
|
|
$schema->resultset('User')->create({
|
|
email => 'testorg@example.com',
|
|
password => 'abc123',
|
|
organisation => {
|
|
name => 'Test Org',
|
|
street_name => 'Test Street',
|
|
town => 'Lancaster',
|
|
postcode => 'LA1 1AA',
|
|
},
|
|
});
|
|
}
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
Usage: APPLICATION dev_data [OPTIONS]
|
|
|
|
Options:
|
|
|
|
-f, --force Actually insert the data
|
|
|
|
=cut
|
|
|
|
1;
|