61 lines
1.4 KiB
Perl
61 lines
1.4 KiB
Perl
package CW::Migration::03;
|
|
|
|
use Moo;
|
|
|
|
extends 'CW::Migration';
|
|
|
|
sub id {
|
|
return 3;
|
|
}
|
|
|
|
sub sql {
|
|
my $boards = [
|
|
{
|
|
id => 't',
|
|
name => 'Technology',
|
|
description => 'Programming, computing, hardware discussion'
|
|
},
|
|
{
|
|
id => 'b',
|
|
name => 'Money',
|
|
description => 'Finance, money, and business discussion'
|
|
},
|
|
{
|
|
id => 'a',
|
|
name => 'Art',
|
|
description => 'Human made art (all forms welcome) discussion'
|
|
},
|
|
{
|
|
id => 's',
|
|
name => 'Math & Science',
|
|
description => 'Math and science discussion'
|
|
},
|
|
{
|
|
id => 'g',
|
|
name => 'Games',
|
|
description => 'Video, Tabletop, TCG, gaming discussion'
|
|
},
|
|
{
|
|
id => 'm',
|
|
name => 'Meta',
|
|
description => 'Discussion about compiled.world'
|
|
}
|
|
];
|
|
|
|
my $values = join(
|
|
",",
|
|
map {
|
|
"('"
|
|
. $_->{id} . "', '"
|
|
. $_->{name} . "', '"
|
|
. $_->{description} . "')"
|
|
} @$boards
|
|
);
|
|
my $sql =
|
|
'INSERT INTO boards (id, name, description) VALUES ' . $values . ';';
|
|
|
|
return $sql;
|
|
}
|
|
|
|
1;
|