lib/Frey/ObjectDesigner.pm

package Frey::ObjectDesigner;
use Moose;

extends 'Frey';
with 'Frey::Web';

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

use Data::Dump qw/dump/;

use Frey::Web::Design;
use Frey::Web::Links;

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

        $self->add_css( 'static/form.css' );

        my $pager;

        while ( 1 ) {
                my $f = { $req->params };
                warn "<<< GOT REQUEST ",dump( $f );
        
                $pager = Frey::Pager->new(
                        fey_class => $self->fey_class,
                        item_constructor => sub {
                                Frey::Web::Design->new( fey_class => $self->fey_class, @_ );
                        },
                ) if ! $pager;

                $pager->update_collection;

                my $form = $pager->items_in_layout( $f );
                $form = $pager->last_item->render_table_wrapper( $form );

            my $html = $self->page(
                        body => '<h1>' . $self->fey_class . '</h1>'
                                . $pager->last_item->layout_picker      # FIXME
                                . qq|<form method="post">$form</form>|
                );

                warn ">>> ",length( $html ),"\n";

                $req->print( $html );
                $req->next;
        }

        warn "NO WAY OUT!";
};

1;
1	dpavlin	113	package Frey::ObjectDesigner;
2			use Moose;
3
4			extends 'Frey';
5			with 'Frey::Web';
6
7			has 'fey_class' => (
8			is => 'rw',
9			isa => 'Str',
10			required => 1,
11			);
12
13			use Data::Dump qw/dump/;
14
15	dpavlin	129	use Frey::Web::Design;
16	dpavlin	113	use Frey::Web::Links;
17
18			sub html {
19			my ( $self, $req ) = @_;
20
21	dpavlin	143	$self->add_css( 'static/form.css' );
22	dpavlin	113
23	dpavlin	143	my $pager;
24
25	dpavlin	113	while ( 1 ) {
26	dpavlin	143	my $f = { $req->params };
27			warn "<<< GOT REQUEST ",dump( $f );
28	dpavlin	113
29	dpavlin	143	$pager = Frey::Pager->new(
30			fey_class => $self->fey_class,
31			item_constructor => sub {
32			Frey::Web::Design->new( fey_class => $self->fey_class, @_ );
33			},
34			) if ! $pager;
35	dpavlin	113
36	dpavlin	143	$pager->update_collection;
37	dpavlin	113
38	dpavlin	143	my $form = $pager->items_in_layout( $f );
39			$form = $pager->last_item->render_table_wrapper( $form );
40	dpavlin	113
41	dpavlin	121	my $html = $self->page(
42			body => '<h1>' . $self->fey_class . '</h1>'
43	dpavlin	143	. $pager->last_item->layout_picker # FIXME
44	dpavlin	121	. qq\|<form method="post">$form</form>\|
45	dpavlin	113	);
46
47	dpavlin	143	warn ">>> ",length( $html ),"\n";
48	dpavlin	113
49			$req->print( $html );
50			$req->next;
51			}
52
53			warn "NO WAY OUT!";
54			};
55
56			1;