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	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;