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( $c->request->params );

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

        my @required = 
                grep {
                        defined $_ && !defined( $params->{$_} )
                }
                map {
                        my $attr = $class->meta->get_attribute($_);
                        $attr->is_required && $_
                } $class->meta->get_attribute_list;

        warn "## required = ",dump( @required );

        my $html;

        my $values = {};
        $values = $class->config($class) if $class->can('config');

        if ( @required ) {
                $html = qq|<h1>Required params for $class</h1><form method="get">|;
                foreach my $name ( @required ) {
                        my $type = $name =~ m/^pass/ ? 'password' : 'text';
                        my $value = $values ? $values->{$name} : '';
                        $html .= qq|<label for="$name">$name</label><input type="$type" name="$name" value="$value">|;
                }
                $html .= qq|<input type="submit" value="Run $class"></form>|;
        } else {

                my $o = $class->new( %$params );
                $o->depends if $o->can('depends');

                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	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	use Frey::ClassLoader;
12
13	warn "# ",dump( Frey::ClassLoader->new->load_all_classes() );
14
15
16	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( $c->request->params );
23
24	my $class = $c->match->captures->{class} \|\| 'Frey::ClassBrowser';
25	$class =~ s{[/-]}{::}g;
26
27	my @required =
28	grep {
29	defined $_ && !defined( $params->{$_} )
30	}
31	map {
32	my $attr = $class->meta->get_attribute($_);
33	$attr->is_required && $_
34	} $class->meta->get_attribute_list;
35
36	warn "## required = ",dump( @required );
37
38	my $html;
39
40	my $values = {};
41	$values = $class->config($class) if $class->can('config');
42
43	if ( @required ) {
44	$html = qq\|<h1>Required params for $class</h1><form method="get">\|;
45	foreach my $name ( @required ) {
46	my $type = $name =~ m/^pass/ ? 'password' : 'text';
47	my $value = $values ? $values->{$name} : '';
48	$html .= qq\|<label for="$name">$name</label><input type="$type" name="$name" value="$value">\|;
49	}
50	$html .= qq\|<input type="submit" value="Run $class"></form>\|;
51	} else {
52
53	my $o = $class->new( %$params );
54	$o->depends if $o->can('depends');
55
56	if ( $o->can('markup') ) {
57	$html = eval { $o->markup };
58	if ( $@ ) {
59	warn $@;
60	$html .= qq{<code>$@</code>};
61	}
62	} else {
63	warn "SKIP: $class can't markup";
64	}
65
66	eval {
67	# FIXME am I paranoid?
68	package Mock::Web;
69	use Moose;
70	extends 'Frey';
71	with 'Frey::Web';
72
73	$html = Mock::Web->new->page(
74	title => $class,
75	body => $html,
76	);
77	};
78	}
79
80	# Response objec
81	my $res = $c->res;
82	$res->code(200);
83	$res->headers->content_type('text/html');
84	$res->body( $html );
85	}
86
87	1;