lib/Frey/Run.pm

package Frey::Run;
use Moose;
extends 'Frey';
with 'Frey::Web';

=head1 NAME

Frey::Run - display required form field for Class and run it

=head1 DESCRIPTION

This object will try to run other Moose objects from your application. It
will try to invoke C<html> or C<markup> method on the.

=cut

has 'class' => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

use Data::Dump qw/dump/;

sub request {
        my ( $self, $req ) = @_;

        my %params = $req->params;
        my $class = $self->class;

        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 );
                warn "## params = ",dump( %params );

        my $html;

        if ( @required ) {
                $html = qq|<h1>Required params for $class</h1><form method="post">|;
                $html .= qq|<label for="$_">$_</label><input type="text" name="$_">| foreach @required;
                $html .= qq|<input type="submit" value="Run $class"></form>|;
        } else {
                my $o = $class->new( %params );
                $o->depends if $o->can('depends');
                if ( $o->can('request') ) {
                        warn "## turning over to $o->request";
                        $o->request( $req );
                } elsif ( $o->can('markup') ) {
                        warn "## using $o->markup";
                        $html = $o->markup;
                        warn ">>> markup $class ",length( $html ), " bytes\n";
                } else {
                        $html = "IGNORE: $class ", $o->dump;
                        warn $html;
                }
        }

        $req->print( $self->page( title => $class, body => $html ) );
}

1;
1	dpavlin	180	package Frey::Run;
2			use Moose;
3			extends 'Frey';
4			with 'Frey::Web';
5
6			=head1 NAME
7
8			Frey::Run - display required form field for Class and run it
9
10	dpavlin	206	=head1 DESCRIPTION
11
12			This object will try to run other Moose objects from your application. It
13			will try to invoke C<html> or C<markup> method on the.
14
15	dpavlin	180	=cut
16
17			has 'class' => (
18			is => 'rw',
19			isa => 'Str',
20			required => 1,
21			);
22
23			use Data::Dump qw/dump/;
24
25	dpavlin	213	sub request {
26	dpavlin	180	my ( $self, $req ) = @_;
27
28			my %params = $req->params;
29			my $class = $self->class;
30
31			my @required =
32			grep {
33			defined $_ && !defined( $params{$_} )
34			}
35			map {
36			my $attr = $class->meta->get_attribute($_);
37			$attr->is_required && $_
38			} $class->meta->get_attribute_list;
39
40			warn "## required = ",dump( @required );
41			warn "## params = ",dump( %params );
42
43			my $html;
44
45			if ( @required ) {
46			$html = qq\|<h1>Required params for $class</h1><form method="post">\|;
47			$html .= qq\|<label for="$_">$_</label><input type="text" name="$_">\| foreach @required;
48			$html .= qq\|<input type="submit" value="Run $class"></form>\|;
49			} else {
50			my $o = $class->new( %params );
51			$o->depends if $o->can('depends');
52	dpavlin	213	if ( $o->can('request') ) {
53			warn "## turning over to $o->request";
54			$o->request( $req );
55	dpavlin	204	} elsif ( $o->can('markup') ) {
56	dpavlin	184	warn "## using $o->markup";
57			$html = $o->markup;
58	dpavlin	195	warn ">>> markup $class ",length( $html ), " bytes\n";
59	dpavlin	204	} else {
60			$html = "IGNORE: $class ", $o->dump;
61			warn $html;
62	dpavlin	184	}
63	dpavlin	180	}
64
65			$req->print( $self->page( title => $class, body => $html ) );
66			}
67
68			1;