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