29 lines
617 B
Perl
29 lines
617 B
Perl
package App::Genregenerator;
|
|
use Dancer ':syntax';
|
|
use Data::Random qw(rand_enum);
|
|
use YAML::XS qw(LoadFile);
|
|
|
|
my $data = LoadFile('genres.yml');
|
|
|
|
sub chance {
|
|
my ($percent) = @_;
|
|
return int(rand(100 / $percent)) == 0;
|
|
}
|
|
|
|
sub generate_genre {
|
|
my @genre;
|
|
|
|
push @genre, rand_enum(set => $data->{cities}) if chance 10;
|
|
push @genre, rand_enum(set => $data->{subgroup}) if chance 70;
|
|
push @genre, rand_enum(set => $data->{subgroup});
|
|
push @genre, rand_enum(set => $data->{group});
|
|
|
|
return join ' ', @genre;
|
|
}
|
|
|
|
get '/' => sub {
|
|
template 'index', { genre => generate_genre() };
|
|
};
|
|
|
|
true;
|