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;

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

        my $params = $req->param;
        warn Dumper( $params );

        $req->print( Dumper( $params ) );

        $req->next;
};

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
27	#method 'html' => positional(
28	# isa => 'Continuity::RequestHolder',
29	# required => 1,
30	#) => sub {
31	sub html {
32	my ( $self, $req ) = @_;
33
34	my $params = $req->param;
35	warn Dumper( $params );
36
37	$req->print( Dumper( $params ) );
38
39	$req->next;
40	};
41
42	1;