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 ) = @_;

        my $params = $req->param;
        warn "# params = ",dump( $params );

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

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

        my $f = {};
        my @w;

        while ( my $u = $s->next ) {
                warn "# u = ",dump( $u );
                my $w = Strix::View::User->new(
                        # FIXME this is cludge
                        unbless( $u )
                );
                warn "# w = ",dump( $w );
                push @w, $w;
        }

        while ( 1 ) {
                my $html = join('<hr/>', map { $_->process($f) } @w );
                $req->print( $html );
                $req->next;
        }

        warn "NO WAY OUT!";
};

1;
1	dpavlin	60	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	dpavlin	68	#use Data::Dumper;
25			#$Data::Dumper::Deparse = 1;
26			use Data::Dump qw/dump/;
27			use Data::Structure::Util qw(unbless);
28	dpavlin	60
29			#method 'html' => positional(
30			# isa => 'Continuity::RequestHolder',
31			# required => 1,
32			#) => sub {
33			sub html {
34			my ( $self, $req ) = @_;
35
36			my $params = $req->param;
37	dpavlin	68	warn "# params = ",dump( $params );
38	dpavlin	60
39	dpavlin	68	use Strix::User;
40			use Strix::View::User;
41	dpavlin	60
42	dpavlin	68	my $s = Strix::User->rows();
43			warn "# s = ",dump( $s );
44
45			my $f = {};
46			my @w;
47
48			while ( my $u = $s->next ) {
49			warn "# u = ",dump( $u );
50			my $w = Strix::View::User->new(
51			# FIXME this is cludge
52			unbless( $u )
53			);
54			warn "# w = ",dump( $w );
55			push @w, $w;
56			}
57
58			while ( 1 ) {
59			my $html = join('<hr/>', map { $_->process($f) } @w );
60			$req->print( $html );
61			$req->next;
62			}
63
64			warn "NO WAY OUT!";
65	dpavlin	60	};
66
67			1;