package Tropy; use strict; use Catalyst ; our $VERSION = '0.02'; my @plugins = qw(Static::Simple FormValidator::Simple Config::YAML); push @plugins, '-Debug' if $ENV{CAT_DEBUG}; __PACKAGE__->config(config_file => 'config.yml'); __PACKAGE__->setup(@plugins); sub default : Private { my ( $self, $c ) = @_; my $entry = Tropy::M::CDBI::Entry->retrieve_random; $entry ? return $c->res->redirect('/entry/' . $entry->id) : return $c->res->redirect('/edit'); } 1;