17 lines
251 B
Perl
17 lines
251 B
Perl
|
package BeastBB::Controller;
|
||
|
|
||
|
use 5.30.3;
|
||
|
|
||
|
use strict;
|
||
|
use warnings;
|
||
|
|
||
|
use Mojo::Base 'Mojolicious::Controller';
|
||
|
|
||
|
sub new {
|
||
|
my $class = shift;
|
||
|
my $self = $class->SUPER::new(@_);
|
||
|
$self->session( expiration => 3600 );
|
||
|
return $self;
|
||
|
}
|
||
|
1;
|