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

use Frey::ClassLoader;

warn "# ",dump( Frey::ClassLoader->new->load_all_classes() );


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

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

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

        my $html;
        if ( $o->can('markup') ) {
                $html = eval { $o->markup };
                if ( $@ ) {
                        warn $@;
                        $html .= qq{<code>$@</code>};
                }
        } else {
                warn "SKIP: $class can't markup";
        }

        eval {
                # FIXME am I paranoid?
                package Mock::Web;
                use Moose;
                extends 'Frey';
                with 'Frey::Web';

                $html = Mock::Web->new->page(
                        title => $class,
                        body => $html,
                );
        };

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

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	dpavlin	238	use Frey::ClassLoader;
12
13			warn "# ",dump( Frey::ClassLoader->new->load_all_classes() );
14
15
16	dpavlin	232	sub markup {
17			my ($self, $c) = @_;
18
19			warn "# ", dump( $c->match->captures );
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	dpavlin	238	my $html;
31			if ( $o->can('markup') ) {
32			$html = eval { $o->markup };
33			if ( $@ ) {
34			warn $@;
35			$html .= qq{<code>$@</code>};
36			}
37			} else {
38			warn "SKIP: $class can't markup";
39			}
40
41			eval {
42			# FIXME am I paranoid?
43			package Mock::Web;
44			use Moose;
45			extends 'Frey';
46			with 'Frey::Web';
47
48			$html = Mock::Web->new->page(
49			title => $class,
50			body => $html,
51			);
52			};
53
54			# Response objec
55			my $res = $c->res;
56			$res->code(200);
57			$res->headers->content_type('text/html');
58			$res->body( $html );
59	dpavlin	232	}
60
61			1;