gistfile1.txt

package Catalyst::View::MaybeMobileTT;

use Moose;

extends 'Catalyst::View::TT';

override 'process' => sub {
    my ($self,$c) = @_;

    my $template = $c->stash->{template}
      ||  $c->action . $self->config->{TEMPLATE_EXTENSION};

    if (is_mobile($c)) {
        $template .= '-mobile';
    }
    $c->stash->{template} = $template;
    super();
};