Frey/Mojo/Run.pm

package Frey::Mojo::Run;

use strict;
use warnings;

use base 'Mojolicious::Controller';

use Data::Dump qw/dump/;
use Carp qw/confess/;

sub markup {
    my ($self, $c) = @_;

        warn "# ", dump( $c->match->captures );

    # Response object
    my $res = $c->res;
    $res->code(200);
    $res->headers->content_type('text/html');

        my $params = $c->request->params->to_hash;
        warn "# params ", dump( $params );

        my $class = $c->match->captures->{class} || 'Frey::ClassBrowser';
        $class =~ s{[/-]}{::}g;

        my $o = $class->new( %$params );
        $o->depends if $o->can('depends');

    $res->body( $o->markup );
}

1;
1	dpavlin	232	package Frey::Mojo::Run;
2
3			use strict;
4			use warnings;
5
6			use base 'Mojolicious::Controller';
7
8			use Data::Dump qw/dump/;
9			use Carp qw/confess/;
10
11			sub markup {
12			my ($self, $c) = @_;
13
14			warn "# ", dump( $c->match->captures );
15
16			# Response object
17			my $res = $c->res;
18			$res->code(200);
19			$res->headers->content_type('text/html');
20
21			my $params = $c->request->params->to_hash;
22			warn "# params ", dump( $params );
23
24			my $class = $c->match->captures->{class} \|\| 'Frey::ClassBrowser';
25			$class =~ s{[/-]}{::}g;
26
27			my $o = $class->new( %$params );
28			$o->depends if $o->can('depends');
29
30			$res->body( $o->markup );
31			}
32
33			1;