lib/Frey/Mojo.pm

package Frey::Mojo;

use strict;
use warnings;

use base 'Mojolicious';

# This method will run for each request
sub dispatch {
    my ($self, $c) = @_;

    # Try to find a static file
    $self->static->dispatch($c);

    # Use routes if we don't have a response code yet
    $self->routes->dispatch($c) unless $c->res->code;

    # Nothing found
    unless ($c->res->code) {
        $self->static->serve($c, '/404.html');
        $c->res->code(404);
    }
}

use Frey::ClassLoader;

# This method will run once at server start
sub startup {
    my $self = shift;

        Frey::ClassLoader->new->load_all_classes();

    # The routes
    my $r = $self->routes;

    # Default route
    $r->route('/:controller/:action/:class')
      ->to(controller => 'run', action => 'markup', class => 'Frey::ClassBrowser');
}

1;
1	package Frey::Mojo;
2
3	use strict;
4	use warnings;
5
6	use base 'Mojolicious';
7
8	# This method will run for each request
9	sub dispatch {
10	my ($self, $c) = @_;
11
12	# Try to find a static file
13	$self->static->dispatch($c);
14
15	# Use routes if we don't have a response code yet
16	$self->routes->dispatch($c) unless $c->res->code;
17
18	# Nothing found
19	unless ($c->res->code) {
20	$self->static->serve($c, '/404.html');
21	$c->res->code(404);
22	}
23	}
24
25	use Frey::ClassLoader;
26
27	# This method will run once at server start
28	sub startup {
29	my $self = shift;
30
31	Frey::ClassLoader->new->load_all_classes();
32
33	# The routes
34	my $r = $self->routes;
35
36	# Default route
37	$r->route('/:controller/:action/:class')
38	->to(controller => 'run', action => 'markup', class => 'Frey::ClassBrowser');
39	}
40
41	1;