1 |
package Frey::Run; |
package Frey::Run; |
2 |
use Moose; |
use Moose; |
3 |
extends 'Frey'; |
extends 'Frey::ClassLoader'; |
4 |
with 'Frey::Web'; |
with 'Frey::Web'; |
5 |
with 'Frey::Config'; |
with 'Frey::Config'; |
6 |
with 'Frey::Escape'; |
with 'Frey::Escape'; |
37 |
|
|
38 |
my $class = $self->class; |
my $class = $self->class; |
39 |
|
|
40 |
|
$self->load_class( $class ); |
41 |
|
|
42 |
my @required = |
my @required = |
43 |
grep { |
grep { |
44 |
defined $_ && $_->can('name') && !defined( $self->params->{ $_->name } ) |
defined $_ && $_->can('name') && !defined( $self->params->{ $_->name } ) |
52 |
|
|
53 |
my $html; |
my $html; |
54 |
my $values = {}; |
my $values = {}; |
55 |
$values = $self->config($class) if $self->can('config'); |
$values = $self->config($class); |
56 |
|
warn "# $class config = ",dump( $values ); |
57 |
|
|
58 |
if ( @required ) { |
if ( @required ) { |
59 |
$html = qq|<h1>Required params for $class</h1><form method="post">|; |
$html = qq|<h1>Required params for $class</h1><form method="post">|; |