1 |
package Frey::ObjectBrowser; |
package Frey::ObjectBrowser; |
2 |
use Moose; |
use Moose; |
|
use MooseX::Method; |
|
3 |
|
|
4 |
extends 'Frey'; |
extends 'Frey'; |
5 |
with 'Frey::Web'; |
with 'Frey::Web'; |
33 |
|
|
34 |
use Frey::Web::Row; |
use Frey::Web::Row; |
35 |
|
|
|
#method 'html' => positional( |
|
|
# isa => 'Continuity::RequestHolder', |
|
|
# required => 1, |
|
|
#) => sub { |
|
36 |
sub html { |
sub html { |
37 |
my ( $self, $req ) = @_; |
my ( $self, $req ) = @_; |
38 |
|
|
39 |
my $f = { $req->params }; |
my $f = { $req->params }; |
40 |
my $layout = delete( $f->{layout} ) || 'div'; |
my $layout = delete( $f->{layout} ) || 'div'; |
41 |
|
|
42 |
my $s = $self->fey_class->rows(); |
my $s = $self->fey_class->collection(); |
43 |
warn "# s ",$self->fey_class," = ",dump( $s ) if $self->debug; |
warn "# s ",$self->fey_class," = ",dump( $s ) if $self->debug; |
44 |
|
|
45 |
my @w; |
my @w; |