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