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';
with 'Frey::ORM::Pager';
with 'Frey::Web';

has 'fey_class' => (
        is => 'rw',
        isa => 'Str',
        default => 'Reblog::Feeds',
);

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

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

=for FIXME
        $self->add_item(
                Frey::ORM::CRUD->new(
                        fey_class => $self->fey_class,
                        render_as => 'edit',
                )
        );
=cut

        my $form = $self->items_in_layout;
#       $form = $self->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';
13	with 'Frey::ORM::Pager';
14	with 'Frey::Web';
15
16	has 'fey_class' => (
17	is => 'rw',
18	isa => 'Str',
19	default => 'Reblog::Feeds',
20	);
21
22	sub as_markup {
23	my ( $self ) = @_;
24
25	$self->add_head( 'static/form.css' );
26
27	=for FIXME
28	$self->add_item(
29	Frey::ORM::CRUD->new(
30	fey_class => $self->fey_class,
31	render_as => 'edit',
32	)
33	);
34	=cut
35
36	my $form = $self->items_in_layout;
37	# $form = $self->render_table_wrapper( $form );
38
39	my $html = $self->html_page(
40	body => '<h1>' . $self->fey_class . '</h1>'
41	# . $last->layout_picker # FIXME ugly
42	. $self->render_pager
43	. qq\|<form method="post">$form</form>\|
44	);
45
46	warn ">>> ",length( $html ),"\n";
47
48	return $html;
49	};
50
51	1;