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	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			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;