Frey/Mojo/Example.pm

package Frey::Mojo::Example;

use strict;
use warnings;

use base 'Mojolicious::Controller';

# This is a templateless action
sub test {
    my ($self, $c) = @_;

    # Response object
    my $res = $c->res;

    # Code
    $res->code(200);

    # Headers
    $res->headers->content_type('text/html');

    # Content
    my $url = $c->url_for;
    $url->path->parse('/index.html');
    $res->body(qq/<a href="$url">Forward to a static document.<\/a>/);
}

# This action will render a template
sub welcome {
    my ($self, $c) = @_;

    # Render the template
    $c->render;
}

1;
1	dpavlin	231	package Frey::Mojo::Example;
2
3			use strict;
4			use warnings;
5
6			use base 'Mojolicious::Controller';
7
8			# This is a templateless action
9			sub test {
10			my ($self, $c) = @_;
11
12			# Response object
13			my $res = $c->res;
14
15			# Code
16			$res->code(200);
17
18			# Headers
19			$res->headers->content_type('text/html');
20
21			# Content
22			my $url = $c->url_for;
23			$url->path->parse('/index.html');
24			$res->body(qq/<a href="$url">Forward to a static document.<\/a>/);
25			}
26
27			# This action will render a template
28			sub welcome {
29			my ($self, $c) = @_;
30
31			# Render the template
32			$c->render;
33			}
34
35			1;