Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

ghenry's scratchpad

by ghenry (Vicar)
on Mar 29, 2005 at 13:32 UTC ( #443123=scratchpad: print w/ replies, xml ) Need Help??

How to produce random page titles in Catalyst:

=head2 auto # # A list titles, which will be # randomly used for each page title # # i.e. <title>[% page_title %]</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; }
Put this in your

Log In?

What's my password?
Create A New User
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (5)
As of 2015-11-28 14:56 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (742 votes), past polls