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	dpavlin	969	package Frey::ORM::Browser;
2	dpavlin	60	use Moose;
3
4	dpavlin	969	#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	dpavlin	991	extends 'Frey';
13			with 'Frey::ORM::Pager';
14	dpavlin	100	with 'Frey::Web';
15	dpavlin	60
16	dpavlin	101	has 'fey_class' => (
17			is => 'rw',
18			isa => 'Str',
19	dpavlin	991	default => 'Reblog::Feeds',
20	dpavlin	101	);
21
22	dpavlin	969	sub as_markup {
23			my ( $self ) = @_;
24	dpavlin	60
25	dpavlin	160	$self->add_head( 'static/form.css' );
26	dpavlin	143
27	dpavlin	991	=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	dpavlin	89
36	dpavlin	969	my $form = $self->items_in_layout;
37	dpavlin	991	# $form = $self->render_table_wrapper( $form );
38	dpavlin	93
39	dpavlin	969	my $html = $self->html_page(
40			body => '<h1>' . $self->fey_class . '</h1>'
41	dpavlin	991	# . $last->layout_picker # FIXME ugly
42	dpavlin	969	. $self->render_pager
43			. qq\|<form method="post">$form</form>\|
44			);
45	dpavlin	72
46	dpavlin	969	warn ">>> ",length( $html ),"\n";
47	dpavlin	68
48	dpavlin	969	return $html;
49	dpavlin	60	};
50
51			1;