12 |
=head1 DESCRIPTION |
=head1 DESCRIPTION |
13 |
|
|
14 |
This object will try to run other Moose objects from your application. It |
This object will try to run other Moose objects from your application. It |
15 |
will try to invoke C<data>, C<html> or C<markup> method on the. |
will try to invoke C<data>, and C<markup> method on the. |
16 |
|
|
17 |
=cut |
=cut |
18 |
|
|
19 |
sub execute { qw/data markup/ } |
sub runnable { qw/data markup/ } |
20 |
|
|
21 |
has 'class' => ( |
has 'class' => ( |
22 |
is => 'rw', |
is => 'rw', |
50 |
|
|
51 |
my $html; |
my $html; |
52 |
my $values = {}; |
my $values = {}; |
53 |
my $values = $self->config($class) if $self->can('config'); |
$values = $self->config($class) if $self->can('config'); |
54 |
|
|
55 |
if ( @required ) { |
if ( @required ) { |
56 |
$html = qq|<h1>Required params for $class</h1><form method="post">|; |
$html = qq|<h1>Required params for $class</h1><form method="post">|; |