=head2 auto # # A list titles, which will be # randomly used for each page title # # i.e. [% page_title %] # =cut sub auto : Private { my ( $self, $c ) = @_; my @titles = qw{ Test1 Test2 Test3 Test4 }; my $rand_title = $titles[ rand @titles ]; $c->stash->{page_title} = $rand_title; return 1; }