Frey/Mojo/Run.pm

package Frey::Mojo::Run;

use strict;
use warnings;

my $debug = 1;

use base 'Mojolicious::Controller';

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

use Frey::ClassLoader;

warn "# load_all_classes ",join(',', keys %{ Frey::ClassLoader->new->load_all_classes() } );

use Frey::Run;

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

        warn "# ", dump( $c->match->tx->req->url->query->params );

        my $params = $c->match->tx->req->url->query->params;
        warn "# params ", dump( $params );

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

#       warn "# c ",dump( $c ) if $debug;

        my $html = Frey::Run->new(
                class => $class,
                request_url => $c->match->tx->req->url,
        )->html;

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

sub as_data {
        my ($self, $c) = @_;
        $self->as_markup( $c );
}

1;
1	package Frey::Mojo::Run;
2
3	use strict;
4	use warnings;
5
6	my $debug = 1;
7
8	use base 'Mojolicious::Controller';
9
10	use Data::Dump qw/dump/;
11	use Carp qw/confess/;
12
13	use Frey::ClassLoader;
14
15	warn "# load_all_classes ",join(',', keys %{ Frey::ClassLoader->new->load_all_classes() } );
16
17	use Frey::Run;
18
19	sub as_markup {
20	my ($self, $c) = @_;
21
22	warn "# ", dump( $c->match->tx->req->url->query->params );
23
24	my $params = $c->match->tx->req->url->query->params;
25	warn "# params ", dump( $params );
26
27	my $class = $c->match->captures->{class} \|\| 'Frey::ClassBrowser';
28	$class =~ s{[/-]}{::}g;
29
30	# warn "# c ",dump( $c ) if $debug;
31
32	my $html = Frey::Run->new(
33	class => $class,
34	request_url => $c->match->tx->req->url,
35	)->html;
36
37	# Response objec
38	my $res = $c->res;
39	$res->code(200);
40	$res->headers->content_type('text/html');
41	$res->body( $html );
42	}
43
44	sub as_data {
45	my ($self, $c) = @_;
46	$self->as_markup( $c );
47	}
48
49	1;