lib/Frey/ObjectBrowser.pm

package Frey::ObjectBrowser;
use Moose;
use MooseX::Method;

extends 'Frey';

my @callbacks;

sub gen_link {
        my ($text, $code) = @_;
        push @callbacks, $code;
        return qq{<a href="?cb=$#callbacks">$text</a>};
}

sub process_links {
        my $request = shift;
        my $cb = $request->param('cb');
        if (exists $callbacks[$cb]) {
                $callbacks[$cb]->($request);
                delete $callbacks[$cb];
        }
}

#use Data::Dumper;
#$Data::Dumper::Deparse = 1;
use Data::Dump qw/dump/;
use Data::Structure::Util qw(unbless);


#method 'html' => positional(
#       isa => 'Continuity::RequestHolder',
#       required => 1,
#) => sub {
sub html {
        my ( $self, $req ) = @_;

        use Strix::User;
        use Strix::View::User;

        my $s = Strix::User->rows();
        #warn "# s = ",dump( $s );

        my @w;

        while ( my $u = $s->next ) {
                my $w = Strix::View::User->new( %{ $u } );
                $w->_fey( $u );
                warn "# w = ",dump( $w ) if $self->debug;
                push @w, $w;
        }

        my $f = { $req->params };

        while ( 1 ) {
        
                warn "# got $#w elements: ",dump( map { $_->id } @w );
                warn "<<< GOT REQUEST ",dump( $f );

                warn "does last element have id? ",dump( $w[$#w]->id );

                if ( $w[ $#w ]->_fey ) {
                        warn "+++ added new widget\n";
                        push @w, Strix::View::User->new( render_as => 'edit' );
                }

                my $form = join('<hr/>', map { $_->process($f) || '[deleted]' } @w );
            my $doc = Continuity::Widget::DomNode->create(
                        html => [
                                head => [
                                        link  => { rel=>"stylesheet", href=>"/static/form.css", type=>"text/css" }
                                ],
                                body => [
                                        h1 => [ 'Strix::User' ],
                                        form => { method=>'post' } => [
                                                $form,
                                        ],
                                ],
                        ]
                );

                $req->print( $doc->to_string );
                $req->next;

                $f = { $req->params };
        }

        warn "NO WAY OUT!";
};

1;
1	package Frey::ObjectBrowser;
2	use Moose;
3	use MooseX::Method;
4
5	extends 'Frey';
6
7	my @callbacks;
8
9	sub gen_link {
10	my ($text, $code) = @_;
11	push @callbacks, $code;
12	return qq{<a href="?cb=$#callbacks">$text</a>};
13	}
14
15	sub process_links {
16	my $request = shift;
17	my $cb = $request->param('cb');
18	if (exists $callbacks[$cb]) {
19	$callbacks[$cb]->($request);
20	delete $callbacks[$cb];
21	}
22	}
23
24	#use Data::Dumper;
25	#$Data::Dumper::Deparse = 1;
26	use Data::Dump qw/dump/;
27	use Data::Structure::Util qw(unbless);
28
29
30	#method 'html' => positional(
31	# isa => 'Continuity::RequestHolder',
32	# required => 1,
33	#) => sub {
34	sub html {
35	my ( $self, $req ) = @_;
36
37	use Strix::User;
38	use Strix::View::User;
39
40	my $s = Strix::User->rows();
41	#warn "# s = ",dump( $s );
42
43	my @w;
44
45	while ( my $u = $s->next ) {
46	my $w = Strix::View::User->new( %{ $u } );
47	$w->_fey( $u );
48	warn "# w = ",dump( $w ) if $self->debug;
49	push @w, $w;
50	}
51
52	my $f = { $req->params };
53
54	while ( 1 ) {
55
56	warn "# got $#w elements: ",dump( map { $_->id } @w );
57	warn "<<< GOT REQUEST ",dump( $f );
58
59	warn "does last element have id? ",dump( $w[$#w]->id );
60
61	if ( $w[ $#w ]->_fey ) {
62	warn "+++ added new widget\n";
63	push @w, Strix::View::User->new( render_as => 'edit' );
64	}
65
66	my $form = join('<hr/>', map { $_->process($f) \|\| '[deleted]' } @w );
67	my $doc = Continuity::Widget::DomNode->create(
68	html => [
69	head => [
70	link => { rel=>"stylesheet", href=>"/static/form.css", type=>"text/css" }
71	],
72	body => [
73	h1 => [ 'Strix::User' ],
74	form => { method=>'post' } => [
75	$form,
76	],
77	],
78	]
79	);
80
81	$req->print( $doc->to_string );
82	$req->next;
83
84	$f = { $req->params };
85	}
86
87	warn "NO WAY OUT!";
88	};
89
90	1;