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	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	dpavlin	241	warn "# params ", dump( $c->request->params );
23	dpavlin	232
24			my $class = $c->match->captures->{class} \|\| 'Frey::ClassBrowser';
25			$class =~ s{[/-]}{::}g;
26
27	dpavlin	241	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	dpavlin	232
36	dpavlin	241	warn "## required = ",dump( @required );
37
38	dpavlin	238	my $html;
39	dpavlin	241
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	dpavlin	238	}
50	dpavlin	241	$html .= qq\|<input type="submit" value="Run $class"></form>\|;
51	dpavlin	238	} else {
52
53	dpavlin	241	my $o = $class->new( %$params );
54			$o->depends if $o->can('depends');
55	dpavlin	238
56	dpavlin	241	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	dpavlin	238
66	dpavlin	241	}
67
68	dpavlin	242	eval {
69			# FIXME am I paranoid?
70			package Mock::Web;
71			use Moose;
72			extends 'Frey';
73			with 'Frey::Web';
74
75			$html = Mock::Web->new->page(
76			title => $class,
77			body => $html,
78			);
79			};
80
81	dpavlin	238	# Response objec
82			my $res = $c->res;
83			$res->code(200);
84			$res->headers->content_type('text/html');
85			$res->body( $html );
86	dpavlin	232	}
87
88			1;