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 markup {
    my ($self, $c) = @_;

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

        my $params = $c->request->params->to_hash;
        warn "# params ", dump( $c->request->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 )->html;

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

sub data {
        my ($self, $c) = @_;
        $self->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	268	sub markup {
20			my ($self, $c) = @_;
21
22			warn "# ", dump( $c->match->captures );
23
24			my $params = $c->request->params->to_hash;
25	dpavlin	275	warn "# params ", dump( $c->request->params );
26	dpavlin	268
27			my $class = $c->match->captures->{class} \|\| 'Frey::ClassBrowser';
28			$class =~ s{[/-]}{::}g;
29
30	dpavlin	318	warn "# c ",dump( $c ) if $debug;
31	dpavlin	268
32	dpavlin	277	my $html = Frey::Run->new( class => $class )->html;
33	dpavlin	275
34	dpavlin	272	# Response objec
35			my $res = $c->res;
36			$res->code(200);
37			$res->headers->content_type('text/html');
38			$res->body( $html );
39	dpavlin	268	}
40
41	dpavlin	277	sub data {
42			my ($self, $c) = @_;
43			$self->markup( $c );
44			}
45
46	dpavlin	268	1;