WriteMakefile(
NAME => 'Catalyst',
VERSION_FROM => 'lib/Catalyst.pm',
- EXE_FILES => ['bin/catalyst'],
+ EXE_FILES => ['script/catalyst.pl'],
PREREQ_PM => {
UNIVERSAL::require => 0,
CGI::Simple => 0,
}
);
-my $gabb =
- int( rand(2) ) == 1
- ? "Gabbana is the greatest!"
- : "Gabbana is drunk again!";
-print "$gabb\n";
+print(
+ (qw/draven naughton sri the_jester/)[ int( rand(4) ) ],
+ " is the greatest and gabb is drunk again!\n"
+);