Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

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 scrutinizing the Monastery: (7)
As of 2015-11-27 22:50 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 (734 votes), past polls