Frey/ORM/Browser.pm

package Frey::ORM::Browser;
use Moose;

#use Data::Dumper;
#$Data::Dumper::Deparse = 1;
use Data::Dump qw/dump/;

use lib 'lib';
use Frey::ORM::Item;
use Frey::ORM::Links;

extends 'Frey::ORM::Pager';
with 'Frey::Web';

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

sub as_markup {
        my ( $self ) = @_;

        $self->add_head( 'static/form.css' );
        my @w;

        $self->update_collection;

        my $last = $self->last_item;

        if ( $last->fey ) {
                warn "+++ add item widget\n";
                $self->add_item(
                        Frey::ORM::CRUD->new(
                                fey_class => $self->fey_class,
                                render_as => 'edit',
                        )
                );
        }

        my $form = $self->items_in_layout;
        $form = $last->render_table_wrapper( $form );

        my $html = $self->html_page(
                body => '<h1>' . $self->fey_class . '</h1>'
                        . $last->layout_picker  # FIXME ugly
                        . $self->render_pager
                        . qq|<form method="post">$form</form>|
        );

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

        return $html;
};

1;
1	package Frey::ORM::Browser;
2	use Moose;
3
4	#use Data::Dumper;
5	#$Data::Dumper::Deparse = 1;
6	use Data::Dump qw/dump/;
7
8	use lib 'lib';
9	use Frey::ORM::Item;
10	use Frey::ORM::Links;
11
12	extends 'Frey::ORM::Pager';
13	with 'Frey::Web';
14
15	has 'fey_class' => (
16	is => 'rw',
17	isa => 'Str',
18	required => 1,
19	);
20
21	sub as_markup {
22	my ( $self ) = @_;
23
24	$self->add_head( 'static/form.css' );
25	my @w;
26
27	$self->update_collection;
28
29	my $last = $self->last_item;
30
31	if ( $last->fey ) {
32	warn "+++ add item widget\n";
33	$self->add_item(
34	Frey::ORM::CRUD->new(
35	fey_class => $self->fey_class,
36	render_as => 'edit',
37	)
38	);
39	}
40
41	my $form = $self->items_in_layout;
42	$form = $last->render_table_wrapper( $form );
43
44	my $html = $self->html_page(
45	body => '<h1>' . $self->fey_class . '</h1>'
46	. $last->layout_picker # FIXME ugly
47	. $self->render_pager
48	. qq\|<form method="post">$form</form>\|
49	);
50
51	warn ">>> ",length( $html ),"\n";
52
53	return $html;
54	};
55
56	1;